home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: ArcFS Archive
(archive/arcFS).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| ArcFS Archive (archive/arcFS)
| magic
| Supported |
| 100%
| file
| RISC OS archive (ArcFS format)
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Acorn ArcFS Archive
| default
| |
| 100%
| dearkID
| deark: arcfs
| default
| |
| 100%
| gt2
| Kopftext: 'Archive'
| default (weak)
| |
| 100%
| detectItEasy
| Archive: ArcFS
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | 88 02 00 00 54 03 00 00 |Archive.|....T...|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 21 54 72 61 6e 73 6c | 61 74 72 00 ff ff ff ff |.!Transl|atr.....|
|00000070| 46 fd ff ff 75 f8 fb 1e | 00 00 00 00 ff ff ff ff |F...u...|........|
|00000080| 44 01 00 80 82 21 42 6f | 6f 74 00 00 00 00 00 00 |D....!Bo|ot......|
|00000090| 52 01 00 00 42 eb ff ff | 40 29 67 45 03 00 9f 6b |R...B...|@)gE...k|
|000000a0| 52 01 00 00 24 00 00 00 | 82 21 52 75 6e 00 04 00 |R...$...|.!Run...|
|000000b0| 00 00 00 00 e6 00 00 00 | 42 eb ff ff ad b2 67 45 |........|B.....gE|
|000000c0| 03 00 0a d4 e6 00 00 00 | 9a 01 00 00 82 21 52 75 |........|.....!Ru|
|000000d0| 6e 49 6d 61 67 65 00 00 | 8d e2 00 00 42 fb ff ff |nImage..|....B...|
|000000e0| 4f dc 1f 47 03 00 65 10 | 8d e2 00 00 a4 02 00 00 |O..G..e.|........|
|000000f0| 82 21 53 70 72 69 74 65 | 73 00 00 00 0c 16 00 00 |.!Sprite|s.......|
|00000100| 42 f9 ff ff c1 12 67 45 | 03 00 8c 23 0c 16 00 00 |B.....gE|...#....|
|00000110| 55 e5 00 00 82 21 55 70 | 64 61 74 65 73 00 00 00 |U....!Up|dates...|
|00000120| e4 37 00 00 42 ff ff ff | 54 09 20 47 03 00 9a 2a |.7..B...|T. G...*|
|00000130| e4 37 00 00 85 fb 00 00 | 82 53 74 61 74 75 73 00 |.7......|.Status.|
|00000140| 00 00 00 00 44 00 00 00 | 42 fd ff ff 96 c0 b9 62 |....D...|B......b|
|00000150| 03 00 91 f8 44 00 00 00 | 8d 33 01 00 82 54 72 61 |....D...|.3...Tra|
|00000160| 6e 73 6c 61 74 6f 72 00 | fc 18 00 00 42 fa ff ff |nslator.|....B...|
|00000170| bd c0 67 45 03 00 35 e1 | fc 18 00 00 f5 33 01 00 |..gE..5.|.....3..|
|00000180| 00 00 00 00 c3 00 04 00 | 00 00 00 00 a1 00 00 00 |........|........|
|00000190| 42 eb ff ff 02 ba b8 59 | 03 00 19 1d a1 00 00 00 |B......Y|........|
|000001a0| a1 06 00 00 82 64 61 74 | 61 66 69 6c 65 73 00 00 |.....dat|afiles..|
|000001b0| ff ff ff ff 46 fd ff ff | e8 f8 fb 1e 00 00 00 00 |....F...|........|
|000001c0| ff ff ff ff 64 02 00 80 | 82 42 41 4c 4c 4f 4f 4e |....d...|.BALLOON|
|000001d0| 53 00 00 00 00 a8 00 00 | 41 95 f6 ff a8 9e 24 e2 |S.......|A.....$.|
|000001e0| 0b 00 53 ea 00 a8 00 00 | 15 4d 01 00 82 43 48 45 |..S.....|.M...CHE|
|000001f0| 45 54 41 48 00 00 00 00 | 00 04 01 00 41 95 f6 ff |ETAH....|....A...|
|00000200| 3b 4f 25 e2 0b 00 66 b9 | 00 04 01 00 39 f5 01 00 |;O%...f.|....9...|
|00000210| 82 43 4c 4f 57 4e 00 00 | 0b 00 00 00 00 c8 00 00 |.CLOWN..|........|
|00000220| 41 95 f6 ff ee 20 47 fc | 0b 00 eb fd 00 c8 00 00 |A.... G.|........|
|00000230| 5d f9 02 00 82 44 4f 4c | 4c 41 52 00 0b 00 00 00 |]....DOL|LAR.....|
|00000240| 00 7c 00 00 41 95 f6 ff | dd de 88 ed 0b 00 7b ca |.|..A...|......{.|
|00000250| 00 7c 00 00 81 c1 03 00 | 82 45 41 47 4c 45 48 45 |.|......|.EAGLEHE|
|00000260| 41 44 00 00 00 ac 00 00 | 41 95 f6 ff d2 a4 98 f4 |AD......|A.......|
|00000270| 0b 00 8f 5e 00 ac 00 00 | a5 3d 04 00 82 46 41 4e |...^....|.=...FAN|
|00000280| 54 41 53 49 41 00 00 00 | 80 22 00 00 42 95 f6 ff |TASIA...|."..B...|
|00000290| c4 14 ba 62 0b 00 d2 29 | 80 22 00 00 c9 e9 04 00 |...b...)|."......|
|000002a0| 00 0d 00 00 00 00 00 00 | 0b 00 00 00 00 00 00 00 |........|........|
|000002b0| 50 ff ff ff 18 00 00 00 | 7c ff ff ff 38 00 4e 07 |P.......||...8.N.|
|000002c0| ac 09 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 46 69 6c 65 | 44 61 74 61 82 21 42 6f |....File|Data.!Bo|
|00000360| 6f 74 00 00 00 00 00 00 | 52 01 00 00 42 eb ff ff |ot......|R...B...|
|00000370| 40 29 67 45 03 00 9f 6b | 7c 0a 7c 20 21 42 6f 6f |@)gE...k||.| !Boo|
|00000380| 74 20 66 6f 72 20 54 72 | 61 6e 73 6c 61 74 6f 72 |t for Tr|anslator|
|00000390| 0a 7c 0a 53 65 74 20 54 | 72 61 6e 73 6c 61 74 6f |.|.Set T|ranslato|
|000003a0| 72 24 44 69 72 20 3c 4f | 62 65 79 24 44 69 72 3e |r$Dir <O|bey$Dir>|
|000003b0| 0a 49 63 6f 6e 53 70 72 | 69 74 65 73 20 3c 54 72 |.IconSpr|ites <Tr|
|000003c0| 61 6e 73 6c 61 74 6f 72 | 24 44 69 72 3e 2e 21 53 |anslator|$Dir>.!S|
|000003d0| 70 72 69 74 65 73 0a 53 | 65 74 20 46 69 6c 65 24 |prites.S|et File$|
|000003e0| 54 79 70 65 5f 30 30 34 | 20 41 49 4d 0a 53 65 74 |Type_004| AIM.Set|
|000003f0| 20 46 69 6c 65 24 54 79 | 70 65 5f 36 39 31 20 44 | File$Ty|pe_691 D|
|00000400| 65 67 61 73 0a 53 65 74 | 20 46 69 6c 65 24 54 79 |egas.Set| File$Ty|
|00000410| 70 65 5f 36 39 32 20 49 | 6d 67 0a 53 65 74 20 46 |pe_692 I|mg.Set F|
|00000420| 69 6c 65 24 54 79 70 65 | 5f 36 39 33 20 41 6d 69 |ile$Type|_693 Ami|
|00000430| 67 61 49 46 46 0a 53 65 | 74 20 46 69 6c 65 24 54 |gaIFF.Se|t File$T|
|00000440| 79 70 65 5f 36 39 34 20 | 4d 61 63 50 61 69 6e 74 |ype_694 |MacPaint|
|00000450| 0a 53 65 74 20 46 69 6c | 65 24 54 79 70 65 5f 36 |.Set Fil|e$Type_6|
|00000460| 39 35 20 47 49 46 0a 53 | 65 74 20 46 69 6c 65 24 |95 GIF.S|et File$|
|00000470| 54 79 70 65 5f 36 39 36 | 20 53 55 4e 0a 53 65 74 |Type_696| SUN.Set|
|00000480| 20 46 69 6c 65 24 54 79 | 70 65 5f 44 35 38 20 52 | File$Ty|pe_D58 R|
|00000490| 65 6e 64 50 69 63 0a 53 | 65 74 20 46 69 6c 65 24 |endPic.S|et File$|
|000004a0| 54 79 70 65 5f 44 45 32 | 20 50 72 6f 41 72 74 0a |Type_DE2| ProArt.|
|000004b0| 53 65 74 20 46 69 6c 65 | 24 54 79 70 65 5f 44 46 |Set File|$Type_DF|
|000004c0| 41 20 50 69 63 74 75 72 | 65 0a 46 69 6c 65 44 61 |A Pictur|e.FileDa|
|000004d0| 74 61 82 21 52 75 6e 00 | 04 00 00 00 00 00 e6 00 |ta.!Run.|........|
|000004e0| 00 00 42 eb ff ff ad b2 | 67 45 03 00 0a d4 7c 0a |..B.....|gE....|.|
|000004f0| 7c 20 21 52 75 6e 20 66 | 69 6c 65 20 66 6f 72 20 || !Run f|ile for |
|00000500| 54 72 61 6e 73 6c 61 74 | 6f 72 0a 7c 0a 53 65 74 |Translat|or.|.Set|
|00000510| 20 54 72 61 6e 73 6c 61 | 74 6f 72 24 44 69 72 20 | Transla|tor$Dir |
|00000520| 3c 4f 62 65 79 24 44 69 | 72 3e 0a 52 4d 45 6e 73 |<Obey$Di|r>.RMEns|
|00000530| 75 72 65 20 54 72 61 6e | 73 6c 61 74 6f 72 20 35 |ure Tran|slator 5|
|00000540| 2e 33 31 20 52 4d 4c 6f | 61 64 20 3c 4f 62 65 79 |.31 RMLo|ad <Obey|
|00000550| 24 44 69 72 3e 2e 54 72 | 61 6e 73 6c 61 74 6f 72 |$Dir>.Tr|anslator|
|00000560| 0a 52 4d 45 6e 73 75 72 | 65 20 54 72 61 6e 73 6c |.RMEnsur|e Transl|
|00000570| 61 74 6f 72 20 35 2e 33 | 31 20 45 72 72 6f 72 20 |ator 5.3|1 Error |
|00000580| 59 6f 75 20 6e 65 65 64 | 20 54 72 61 6e 73 6c 61 |You need| Transla|
|00000590| 74 6f 72 20 35 2e 33 31 | 20 6f 72 20 6c 61 74 65 |tor 5.31| or late|
|000005a0| 72 0a 57 69 6d 70 53 6c | 6f 74 20 2d 6d 69 6e 20 |r.WimpSl|ot -min |
|000005b0| 31 36 30 4b 0a 52 75 6e | 20 3c 54 72 61 6e 73 6c |160K.Run| <Transl|
|000005c0| 61 74 6f 72 24 44 69 72 | 3e 2e 21 52 75 6e 49 6d |ator$Dir|>.!RunIm|
|000005d0| 61 67 65 0a 46 69 6c 65 | 44 61 74 61 82 21 52 75 |age.File|Data.!Ru|
|000005e0| 6e 49 6d 61 67 65 00 00 | 8d e2 00 00 42 fb ff ff |nImage..|....B...|
|000005f0| 4f dc 1f 47 03 00 65 10 | 0d 00 0a 10 f4 20 3e 21 |O..G..e.|..... >!|
|00000600| 52 75 6e 49 6d 61 67 65 | 0d 00 14 4b f4 ab ab ab |RunImage|...K....|
|00000610| ab ab ab ab ab ab ab ab | ab ab ab ab ab ab ab ab |........|........|
|00000620| ab ab ab ab ab ab ab ab | ab ab ab ab ab ab ab ab |........|........|
|00000630| ab ab ab ab ab ab ab ab | ab ab ab ab ab ab ab ab |........|........|
|00000640| ab ab ab ab ab ab ab ab | ab ab ab ab ab ab ab ab |........|........|
|00000650| ab ab ab 0d 00 1e 4b f4 | 20 43 6f 6e 76 65 72 74 |......K.| Convert|
|00000660| 73 20 66 6f 72 65 69 67 | 6e 20 67 72 61 70 68 69 |s foreig|n graphi|
|00000670| 63 73 20 66 69 6c 65 73 | 20 74 6f 20 41 72 63 68 |cs files| to Arch|
|00000680| 69 6d 65 64 65 73 20 20 | 20 20 20 20 20 20 20 20 |imedes | |
|00000690| 20 20 20 20 28 52 49 53 | 43 57 41 52 45 29 0d 00 | (RIS|CWARE)..|
|000006a0| 28 2d f4 20 56 65 72 73 | 69 6f 6e 20 64 61 74 65 |(-. Vers|ion date|
|000006b0| 20 3a 20 46 72 69 2c 31 | 36 20 4d 61 72 20 31 39 | : Fri,1|6 Mar 19|
|000006c0| 39 30 2e 32 31 3a 31 37 | 3a 34 37 0d 00 32 1e f4 |90.21:17|:47..2..|
|000006d0| 20 a9 20 31 39 39 30 20 | 5a 65 72 69 64 61 6a 68 | . 1990 |Zeridajh|
|000006e0| 20 73 6f 66 74 77 61 72 | 65 0d 00 3c 15 f4 20 62 | softwar|e..<.. b|
|000006f0| 79 20 4a 6f 68 6e 20 4b | 6f 72 74 69 6e 6b 0d 00 |y John K|ortink..|
|00000700| 46 4b f4 ab ab ab ab ab | ab ab ab ab ab ab ab ab |FK......|........|
|00000710| ab ab ab ab ab ab ab ab | ab ab ab ab ab ab ab ab |........|........|
|00000720| ab ab ab ab ab ab ab ab | ab ab ab ab ab ab ab ab |........|........|
|00000730| ab ab ab ab ab ab ab ab | ab ab ab ab ab ab ab ab |........|........|
|00000740| ab ab ab ab ab ab ab ab | ab 0d 00 50 2e ee 20 85 |........|...P.. .|
|00000750| 20 f1 27 22 45 72 72 6f | 72 22 27 27 22 27 22 3b | .'"Erro|r"''"'";|
|00000760| f6 24 3b 22 27 20 28 63 | 6f 64 65 20 22 3b 9e 3b |.$;"' (c|ode ";.;|
|00000770| 22 29 22 27 27 3a e0 0d | 00 5a 1d de 20 6d 65 6e |")"'':..|.Z.. men|
|00000780| 75 31 20 32 30 34 38 2c | 73 75 62 6d 65 6e 75 20 |u1 2048,|submenu |
|00000790| 32 30 34 38 0d 00 64 46 | de 20 77 69 6e 64 6f 77 |2048..dF|. window|
|000007a0| 31 20 32 30 34 38 2c 77 | 69 6e 64 6f 77 32 20 32 |1 2048,w|indow2 2|
|000007b0| 30 34 38 2c 77 69 6e 64 | 6f 77 33 20 32 30 34 38 |048,wind|ow3 2048|
|000007c0| 2c 77 69 6e 64 6f 77 34 | 20 32 30 34 38 2c 77 69 |,window4| 2048,wi|
|000007d0| 6e 64 6f 77 35 20 32 30 | 34 38 0d 00 6e 45 de 20 |ndow5 20|48..nE. |
|000007e0| 70 6f 6c 6c 20 32 35 36 | 2c 62 6c 6f 63 6b 20 32 |poll 256|,block 2|
|000007f0| 35 36 2c 66 69 6c 65 6e | 61 6d 65 20 32 35 36 2c |56,filen|ame 256,|
|00000800| 65 72 72 20 32 35 36 2c | 70 61 6c 65 74 74 65 20 |err 256,|palette |
|00000810| 32 35 36 2c 70 6f 69 6e | 74 65 72 20 35 31 32 0d |256,poin|ter 512.|
|00000820| 00 78 23 de 20 50 61 6c | 65 74 74 65 25 28 32 35 |.x#. Pal|ette%(25|
|00000830| 36 29 2c 55 73 65 72 4d | 6f 64 65 53 65 74 25 28 |6),UserM|odeSet%(|
|00000840| 34 29 0d 00 82 3c de 20 | 61 72 67 25 20 32 35 36 |4)...<. |arg% 256|
|00000850| 2c 64 75 6d 25 20 31 30 | 32 34 2c 74 72 61 6e 73 |,dum% 10|24,trans|
|00000860| 74 61 62 25 20 32 35 36 | 2c 70 61 6c 72 67 62 20 |tab% 256|,palrgb |
|00000870| 31 30 32 34 2c 68 61 6d | 62 61 73 20 36 34 0d 00 |1024,ham|bas 64..|
|00000880| 8c 4a 54 69 6e 79 73 69 | 7a 65 25 3d 34 30 2a 31 |.JTinysi|ze%=40*1|
|00000890| 30 32 34 3a de 20 54 69 | 6e 79 25 20 54 69 6e 79 |024:. Ti|ny% Tiny|
|000008a0| 73 69 7a 65 25 3a f4 20 | 46 69 6c 65 2f 74 61 62 |size%:. |File/tab|
|000008b0| 6c 65 20 62 75 66 66 65 | 72 20 28 64 6f 6e 27 74 |le buffe|r (don't|
|000008c0| 20 63 68 61 6e 67 65 29 | 0d 00 96 4c 50 72 6f 67 | change)|...LProg|
|000008d0| 6e 65 65 64 25 3d 31 34 | 30 2a 31 30 32 34 3a f4 |need%=14|0*1024:.|
|000008e0| 20 45 73 74 69 6d 61 74 | 65 64 20 73 70 61 63 65 | Estimat|ed space|
|000008f0| 20 6e 65 65 64 65 64 20 | 66 6f 72 20 70 72 6f 67 | needed |for prog|
|00000900| 72 61 6d 2b 76 61 72 73 | 20 28 6e 6f 20 73 70 72 |ram+vars| (no spr|
|00000910| 62 75 66 29 0d 00 a0 37 | 54 6f 74 61 6c 66 72 65 |buf)...7|Totalfre|
|00000920| 65 25 3d 93 2d 90 3a f4 | 20 54 6f 74 61 6c 20 66 |e%=.-.:.| Total f|
|00000930| 72 65 65 20 66 6f 72 20 | 70 72 6f 67 72 61 6d 2b |ree for |program+|
|00000940| 76 61 72 73 2b 73 70 72 | 62 75 66 0d 00 aa 3d 53 |vars+spr|buf...=S|
|00000950| 70 72 69 74 65 73 69 7a | 65 25 3d 54 6f 74 61 6c |pritesiz|e%=Total|
|00000960| 66 72 65 65 25 2d 50 72 | 6f 67 6e 65 65 64 25 3a |free%-Pr|ogneed%:|
|00000970| f4 20 46 72 65 65 20 66 | 6f 72 20 73 70 72 69 74 |. Free f|or sprit|
|00000980| 65 20 62 75 66 66 65 72 | 0d 00 b4 45 e7 53 70 72 |e buffer|...E.Spr|
|00000990| 69 74 65 73 69 7a 65 25 | 3c 31 30 32 34 20 8c 20 |itesize%|<1024 . |
|000009a0| 85 20 31 2c 22 4e 6f 20 | 72 6f 6f 6d 20 74 6f 20 |. 1,"No |room to |
|000009b0| 73 74 61 72 74 20 75 70 | 20 54 72 61 6e 73 6c 61 |start up| Transla|
|000009c0| 74 6f 72 20 70 72 6f 70 | 65 72 6c 79 22 0d 00 be |tor prop|erly"...|
|000009d0| 43 e7 54 69 6e 79 73 69 | 7a 65 25 3c 34 30 2a 31 |C.Tinysi|ze%<40*1|
|000009e0| 30 32 34 20 8c 20 85 20 | 31 2c 22 57 68 6f 20 73 |024 . . |1,"Who s|
|000009f0| 63 72 65 77 65 64 20 61 | 72 6f 75 6e 64 20 77 69 |crewed a|round wi|
|00000a00| 74 68 20 6d 79 20 70 72 | 6f 67 72 61 6d 20 3f 22 |th my pr|ogram ?"|
|00000a10| 0d 00 c8 29 de 20 53 70 | 72 69 74 65 25 20 53 70 |...). Sp|rite% Sp|
|00000a20| 72 69 74 65 73 69 7a 65 | 25 3a f4 20 53 70 72 69 |ritesize|%:. Spri|
|00000a30| 74 65 20 62 75 66 66 65 | 72 0d 00 d2 28 f2 69 6e |te buffe|r...(.in|
|00000a40| 69 74 69 61 6c 69 73 65 | 3a f4 20 49 6e 69 74 69 |itialise|:. Initi|
|00000a50| 61 6c 69 73 65 20 61 70 | 70 6c 69 63 61 74 69 6f |alise ap|plicatio|
|00000a60| 6e 0d 00 dc 34 f2 6d 6f | 64 65 5f 63 68 61 6e 67 |n...4.mo|de_chang|
|00000a70| 65 28 2d 31 29 3a f4 20 | 52 65 73 65 6c 65 63 74 |e(-1):. |Reselect|
|00000a80| 20 63 75 72 72 65 6e 74 | 20 6d 6f 64 65 20 74 6f | current| mode to|
|00000a90| 20 74 69 64 79 0d 00 e6 | 5b ee 20 85 20 f2 65 72 | tidy...|[. . .er|
|00000aa0| 72 6f 72 28 9f 2c f6 24 | 2b 22 20 28 63 6f 64 65 |ror(.,.$|+" (code|
|00000ab0| 20 22 2b c3 9e 2b 22 29 | 22 29 3a e7 46 69 6c 65 | "+..+")|"):.File|
|00000ac0| 4f 70 65 6e 20 8c 20 d9 | 23 46 69 6c 65 3a f4 20 |Open . .|#File:. |
|00000ad0| 52 65 70 6f 72 74 20 65 | 72 72 6f 72 2c 20 65 6e |Report e|rror, en|
|00000ae0| 73 75 72 65 20 66 69 6c | 65 20 63 6c 6f 73 65 64 |sure fil|e closed|
|00000af0| 0d 00 f0 d1 e7 53 70 72 | 69 74 65 73 69 7a 65 25 |.....Spr|itesize%|
|00000b00| 3c 38 30 2a 31 30 32 34 | 20 8c 20 f2 65 72 72 6f |<80*1024| . .erro|
|00000b10| 72 28 30 2c 22 57 41 52 | 4e 49 4e 47 20 21 20 49 |r(0,"WAR|NING ! I|
|00000b20| 20 68 61 76 65 20 6f 6e | 6c 79 20 22 2b c3 28 53 | have on|ly "+.(S|
|00000b30| 70 72 69 74 65 73 69 7a | 65 25 29 2b 22 20 62 79 |pritesiz|e%)+" by|
|00000b40| 74 65 73 20 66 72 65 65 | 20 66 6f 72 20 69 6d 61 |tes free| for ima|
|00000b50| 67 65 20 68 61 6e 64 6c | 69 6e 67 2e 20 50 72 65 |ge handl|ing. Pre|
|00000b60| 73 73 20 4f 4b 20 74 6f | 20 63 6f 6e 74 69 6e 75 |ss OK to| continu|
|00000b70| 65 20 77 69 74 68 20 74 | 68 69 73 20 74 72 69 63 |e with t|his tric|
|00000b80| 6b 79 20 73 69 74 75 61 | 74 69 6f 6e 20 6f 72 20 |ky situa|tion or |
|00000b90| 43 41 4e 43 45 4c 20 74 | 6f 20 71 75 69 74 20 28 |CANCEL t|o quit (|
|00000ba0| 61 6e 64 20 72 65 73 65 | 72 76 65 20 73 6f 6d 65 |and rese|rve some|
|00000bb0| 20 6d 6f 72 65 20 6d 65 | 6d 6f 72 79 20 21 29 22 | more me|mory !)"|
|00000bc0| 29 0d 00 fa 17 f5 20 f4 | 20 50 6f 6c 6c 20 61 6e |)..... .| Poll an|
|00000bd0| 64 20 61 63 74 69 6f 6e | 0d 01 04 11 c8 8e 20 a4 |d action|...... .|
|00000be0| 70 6f 6c 6c 28 30 29 20 | ca 0d 01 0e 05 20 0d 01 |poll(0) |..... ..|
|00000bf0| 18 2a 20 c9 20 30 20 3a | 20 f4 20 4e 6f 74 68 69 |.* . 0 :| . Nothi|
|00000c00| 6e 67 20 74 6f 20 64 6f | 2c 20 70 65 72 66 6f 72 |ng to do|, perfor|
|00000c10| 6d 20 63 68 65 63 6b 73 | 0d 01 22 15 20 20 e7 44 |m checks|..". .D|
|00000c20| 61 74 61 4c 6f 61 64 52 | 65 66 25 20 8c 0d 01 2c |ataLoadR|ef% ...,|
|00000c30| 45 20 20 20 44 61 74 61 | 4c 6f 61 64 52 65 66 25 |E Data|LoadRef%|
|00000c40| 3d a3 3a c8 99 20 22 4f | 53 5f 43 4c 49 22 2c 22 |=.:.. "O|S_CLI","|
|00000c50| 52 65 6d 6f 76 65 20 22 | 2b 53 61 76 65 24 3a f4 |Remove "|+Save$:.|
|00000c60| 20 44 65 6c 65 74 65 20 | 66 69 6c 65 20 73 61 76 | Delete |file sav|
|00000c70| 65 64 0d 01 36 45 20 20 | 20 f2 65 72 72 6f 72 28 |ed..6E | .error(|
|00000c80| 2d 31 2c 22 42 61 64 20 | 64 61 74 61 20 74 72 61 |-1,"Bad |data tra|
|00000c90| 6e 73 66 65 72 2c 20 72 | 65 63 65 69 76 65 72 20 |nsfer, r|eceiver |
|00000ca0| 64 65 61 64 22 29 3a f4 | 20 4e 6f 20 44 61 74 61 |dead"):.| No Data|
|00000cb0| 4c 6f 61 64 41 63 6b 0d | 01 40 07 20 20 cd 0d 01 |LoadAck.|.@. ...|
|00000cc0| 4a 05 20 0d 01 54 22 20 | c9 20 31 20 3a 20 f4 20 |J. ..T" |. 1 : . |
|00000cd0| 52 65 64 72 61 77 20 77 | 69 6e 64 6f 77 20 72 65 |Redraw w|indow re|
|00000ce0| 71 75 65 73 74 0d 01 5e | 1e 20 20 f2 72 65 64 72 |quest..^|. .redr|
|00000cf0| 61 77 5f 77 69 6e 64 6f | 77 28 70 6f 6c 6c 21 30 |aw_windo|w(poll!0|
|00000d00| 2c a3 29 0d 01 68 05 20 | 0d 01 72 20 20 c9 20 32 |,.)..h. |..r . 2|
|00000d10| 20 3a 20 f4 20 4f 70 65 | 6e 20 77 69 6e 64 6f 77 | : . Ope|n window|
|00000d20| 20 72 65 71 75 65 73 74 | 0d 01 7c 1a 20 20 f2 6f | request|..|. .o|
|00000d30| 70 65 6e 5f 77 69 6e 64 | 6f 77 28 30 2c 70 6f 6c |pen_wind|ow(0,pol|
|00000d40| 6c 29 0d 01 86 05 20 0d | 01 90 21 20 c9 20 33 20 |l).... .|..! . 3 |
|00000d50| 3a 20 f4 20 43 6c 6f 73 | 65 20 77 69 6e 64 6f 77 |: . Clos|e window|
|00000d60| 20 72 65 71 75 65 73 74 | 0d 01 9a 21 20 20 77 69 | request|...! wi|
|00000d70| 6e 25 3d 70 6f 6c 6c 21 | 30 3a f4 20 57 69 6e 64 |n%=poll!|0:. Wind|
|00000d80| 6f 77 20 68 61 6e 64 6c | 65 0d 01 a4 28 20 20 f2 |ow handl|e...( .|
|00000d90| 63 6c 6f 73 65 5f 77 69 | 6e 64 6f 77 28 77 69 6e |close_wi|ndow(win|
|00000da0| 25 29 3a f4 20 43 6c 6f | 73 65 20 77 69 6e 64 6f |%):. Clo|se windo|
|00000db0| 77 0d 01 ae 77 20 20 e7 | 77 69 6e 25 3d 77 69 6e |w...w .|win%=win|
|00000dc0| 5f 69 6d 67 25 20 8c 20 | 49 6d 67 3d a3 3a f2 73 |_img% . |Img=.:.s|
|00000dd0| 65 74 5f 70 61 6c 65 74 | 74 65 28 30 29 3a f2 63 |et_palet|te(0):.c|
|00000de0| 6c 6f 73 65 5f 77 69 6e | 64 6f 77 28 77 69 6e 5f |lose_win|dow(win_|
|00000df0| 73 61 76 65 25 29 3a f4 | 20 52 65 73 65 74 20 70 |save%):.| Reset p|
|00000e00| 61 6c 65 74 74 65 2c 20 | 77 69 70 65 20 73 61 76 |alette, |wipe sav|
|00000e10| 65 20 77 69 6e 64 6f 77 | 20 69 66 20 69 6d 61 67 |e window| if imag|
|00000e20| 65 20 63 6c 6f 73 65 64 | 0d 01 b8 05 20 0d 01 c2 |e closed|.... ...|
|00000e30| 23 20 c9 20 34 20 3a 20 | f4 20 50 6f 69 6e 74 65 |# . 4 : |. Pointe|
|00000e40| 72 20 6c 65 61 76 69 6e | 67 20 77 69 6e 64 6f 77 |r leavin|g window|
|00000e50| 0d 01 cc 05 20 0d 01 d6 | 24 20 c9 20 35 20 3a 20 |.... ...|$ . 5 : |
|00000e60| f4 20 50 6f 69 6e 74 65 | 72 20 65 6e 74 65 72 69 |. Pointe|r enteri|
|00000e70| 6e 67 20 77 69 6e 64 6f | 77 0d 01 e0 05 20 0d 01 |ng windo|w.... ..|
|00000e80| ea 1a 20 c9 20 36 20 3a | 20 f4 20 4d 6f 75 73 65 |.. . 6 :| . Mouse|
|00000e90| 20 63 6c 69 63 6b 65 64 | 0d 01 f4 41 20 20 62 75 | clicked|...A bu|
|00000ea0| 74 25 3d 70 6f 6c 6c 21 | 38 3a 77 69 6e 25 3d 70 |t%=poll!|8:win%=p|
|00000eb0| 6f 6c 6c 21 31 32 3a 69 | 63 6f 25 3d 70 6f 6c 6c |oll!12:i|co%=poll|
|00000ec0| 21 31 36 3a f4 20 42 75 | 74 74 6f 6e 73 2f 77 69 |!16:. Bu|ttons/wi|
|00000ed0| 6e 64 6f 77 2f 69 63 6f | 6e 0d 01 fe 0f 20 20 c8 |ndow/ico|n.... .|
|00000ee0| 8e 20 77 69 6e 25 20 ca | 0d 02 08 20 20 20 20 c9 |. win% .|... .|
|00000ef0| 20 2d 32 20 3a 20 f4 20 | 43 6c 69 63 6b 20 6f 6e | -2 : . |Click on|
|00000f00| 20 69 63 6f 6e 62 61 72 | 0d 02 12 19 20 20 20 20 | iconbar|.... |
|00000f10| e7 69 63 6f 25 3d 49 69 | 63 6f 6e 62 61 72 25 20 |.ico%=Ii|conbar% |
|00000f20| 8c 0d 02 1c 1f 20 20 20 | 20 20 f4 20 49 63 6f 6e |..... | . Icon|
|00000f30| 62 61 72 20 69 63 6f 6e | 20 63 6c 69 63 6b 65 64 |bar icon| clicked|
|00000f40| 0d 02 26 16 20 20 20 20 | 20 c8 8e 20 62 75 74 25 |..&. | .. but%|
|00000f50| 20 80 20 37 20 ca 0d 02 | 30 80 20 20 20 20 20 20 | . 7 ...|0. |
|00000f60| c9 20 32 20 3a 20 f2 63 | 72 65 61 74 65 5f 6d 65 |. 2 : .c|reate_me|
|00000f70| 6e 75 28 2d 31 2c 30 2c | 22 54 72 61 6e 73 6c 61 |nu(-1,0,|"Transla|
|00000f80| 74 6f 72 22 2c 32 30 30 | 2c 34 30 2c 30 2c 22 20 |tor",200|,40,0," |
|00000f90| 49 6e 66 6f 22 2b 22 23 | 22 2b c3 28 77 69 6e 5f |Info"+"#|"+.(win_|
|00000fa0| 69 6e 66 6f 25 29 2b 22 | 7c 20 46 69 6c 65 74 79 |info%)+"|| Filety|
|00000fb0| 70 65 73 22 2b 22 23 22 | 2b c3 28 77 69 6e 5f 66 |pes"+"#"|+.(win_f|
|00000fc0| 69 6c 65 74 25 29 2b 22 | 7c 20 51 75 69 74 7c 22 |ilet%)+"|| Quit|"|
|00000fd0| 2c 22 22 2c b9 29 0d 02 | 3a 22 20 20 20 20 20 20 |,"",.)..|:" |
|00000fe0| c9 20 31 2c 34 20 3a 20 | f2 6f 70 74 69 6f 6e 73 |. 1,4 : |.options|
|00000ff0| 5f 6d 65 6e 75 28 b9 29 | 0d 02 44 0a 20 20 20 20 |_menu(.)|..D. |
|00001000| 20 cb 0d 02 4e 09 20 20 | 20 20 cd 0d 02 58 2b 20 | ...N. | ...X+ |
|00001010| 20 20 c9 20 77 69 6e 5f | 69 6d 67 25 20 3a 20 f4 | . win_|img% : .|
|00001020| 20 43 6c 69 63 6b 20 6f | 6e 20 69 6d 61 67 65 20 | Click o|n image |
|00001030| 77 69 6e 64 6f 77 0d 02 | 62 15 20 20 20 20 c8 8e |window..|b. ..|
|00001040| 20 62 75 74 25 20 80 20 | 37 20 ca 0d 02 6c 3a 20 | but% . |7 ...l: |
|00001050| 20 20 20 20 c9 20 32 20 | 3a 20 f2 6f 70 74 69 6f | . 2 |: .optio|
|00001060| 6e 73 5f 6d 65 6e 75 28 | b9 29 3a f4 20 4d 65 6e |ns_menu(|.):. Men|
|00001070| 75 20 62 75 74 74 6f 6e | 2c 20 70 6f 70 20 75 70 |u button|, pop up|
|00001080| 20 6d 65 6e 75 0d 02 76 | 09 20 20 20 20 cb 0d 02 | menu..v|. ...|
|00001090| 80 30 20 20 20 c9 20 77 | 69 6e 5f 73 61 76 65 25 |.0 . w|in_save%|
|000010a0| 20 3a 20 f4 20 43 6c 69 | 63 6b 20 6f 6e 20 73 61 | : . Cli|ck on sa|
|000010b0| 76 65 20 66 69 6c 65 20 | 77 69 6e 64 6f 77 0d 02 |ve file |window..|
|000010c0| 8a 16 20 20 20 20 e7 69 | 63 6f 25 3d 49 73 61 76 |.. .i|co%=Isav|
|000010d0| 65 25 20 8c 0d 02 94 18 | 20 20 20 20 20 c8 8e 20 |e% .....| .. |
|000010e0| 62 75 74 25 20 80 20 26 | 37 46 20 ca 0d 02 9e 3b |but% . &|7F ....;|
|000010f0| 20 20 20 20 20 20 c9 20 | 31 36 2c 36 34 20 3a 20 | . |16,64 : |
|00001100| f4 20 44 72 61 67 2c 63 | 61 6c 63 75 6c 61 74 65 |. Drag,c|alculate|
|00001110| 20 64 72 61 67 20 62 6f | 78 20 61 6e 64 20 63 72 | drag bo|x and cr|
|00001120| 65 61 74 65 20 69 74 0d | 02 a8 3e 20 20 20 20 20 |eate it.|..> |
|00001130| 20 20 21 62 6c 6f 63 6b | 3d 77 69 6e 25 3a c8 99 | !block|=win%:..|
|00001140| 20 57 47 65 74 57 53 25 | 2c 2c 62 6c 6f 63 6b 3a | WGetWS%|,,block:|
|00001150| 78 25 3d 62 6c 6f 63 6b | 21 34 3a 79 25 3d 62 6c |x%=block|!4:y%=bl|
|00001160| 6f 63 6b 21 38 0d 02 b2 | 29 20 20 20 20 20 20 20 |ock!8...|) |
|00001170| 62 6c 6f 63 6b 21 34 3d | 69 63 6f 25 3a c8 99 20 |block!4=|ico%:.. |
|00001180| 57 47 65 74 49 49 25 2c | 2c 62 6c 6f 63 6b 0d 02 |WGetII%,|,block..|
|00001190| bc 4b 20 20 20 20 20 20 | 20 21 62 6c 6f 63 6b 3d |.K | !block=|
|000011a0| 77 69 6e 5f 73 61 76 65 | 25 3a 62 6c 6f 63 6b 21 |win_save|%:block!|
|000011b0| 34 3d 35 3a 62 6c 6f 63 | 6b 21 38 2b 3d 78 25 3a |4=5:bloc|k!8+=x%:|
|000011c0| 62 6c 6f 63 6b 21 31 32 | 2b 3d 79 25 3a 62 6c 6f |block!12|+=y%:blo|
|000011d0| 63 6b 21 31 36 2b 3d 78 | 25 0d 02 c6 4b 20 20 20 |ck!16+=x|%...K |
|000011e0| 20 20 20 20 62 6c 6f 63 | 6b 21 32 30 2b 3d 79 25 | bloc|k!20+=y%|
|000011f0| 3a 62 6c 6f 63 6b 21 32 | 34 3d 30 3a 62 6c 6f 63 |:block!2|4=0:bloc|
|00001200| 6b 21 32 38 3d 30 3a 62 | 6c 6f 63 6b 21 33 32 3d |k!28=0:b|lock!32=|
|00001210| 53 63 72 57 25 3a 62 6c | 6f 63 6b 21 33 36 3d 53 |ScrW%:bl|ock!36=S|
|00001220| 63 72 48 25 0d 02 d0 2e | 20 20 20 20 20 20 20 c8 |crH%....| .|
|00001230| 99 20 57 44 72 61 67 42 | 25 2c 2c 62 6c 6f 63 6b |. WDragB|%,,block|
|00001240| 3a f4 20 43 72 65 61 74 | 65 20 64 72 61 67 20 62 |:. Creat|e drag b|
|00001250| 6f 78 0d 02 da 0a 20 20 | 20 20 20 cb 0d 02 e4 09 |ox.... | .....|
|00001260| 20 20 20 20 cd 0d 02 ee | 07 20 20 cb 0d 02 f8 05 | ....|. .....|
|00001270| 20 0d 03 02 3a 20 c9 20 | 37 20 3a 20 f4 20 55 73 | ...: . |7 : . Us|
|00001280| 65 72 20 68 61 73 20 64 | 72 6f 70 70 65 64 20 64 |er has d|ropped d|
|00001290| 72 61 67 20 62 6f 78 20 | 6f 66 20 73 61 76 65 20 |rag box |of save |
|000012a0| 66 69 6c 65 20 77 69 6e | 64 6f 77 0d 03 0c 2e 20 |file win|dow.... |
|000012b0| 20 c8 99 20 57 47 65 74 | 50 49 25 2c 2c 62 6c 6f | .. WGet|PI%,,blo|
|000012c0| 63 6b 3a f4 20 47 65 74 | 20 70 6f 69 6e 74 65 72 |ck:. Get| pointer|
|000012d0| 20 70 6f 73 69 74 69 6f | 6e 0d 03 16 49 20 20 64 | positio|n...I d|
|000012e0| 72 6f 70 77 69 6e 25 3d | 62 6c 6f 63 6b 21 31 32 |ropwin%=|block!12|
|000012f0| 3a 64 72 6f 70 69 63 6f | 25 3d 62 6c 6f 63 6b 21 |:dropico|%=block!|
|00001300| 31 36 3a f4 20 57 69 6e | 64 6f 77 2f 69 63 6f 6e |16:. Win|dow/icon|
|00001310| 20 77 68 65 72 65 20 62 | 6f 78 20 64 72 6f 70 70 | where b|ox dropp|
|00001320| 65 64 0d 03 20 35 20 20 | 66 69 6c 65 6e 61 6d 65 |ed.. 5 |filename|
|00001330| 24 3d a4 73 74 72 69 6e | 67 28 66 69 6c 65 6e 61 |$=.strin|g(filena|
|00001340| 6d 65 29 3a f4 20 46 69 | 6c 65 6e 61 6d 65 20 66 |me):. Fi|lename f|
|00001350| 6f 72 20 73 61 76 65 0d | 03 2a af 20 20 62 6c 6f |or save.|.*. blo|
|00001360| 63 6b 21 32 30 3d 62 6c | 6f 63 6b 21 31 32 3a 62 |ck!20=bl|ock!12:b|
|00001370| 6c 6f 63 6b 21 32 34 3d | 62 6c 6f 63 6b 21 31 36 |lock!24=|block!16|
|00001380| 3a 62 6c 6f 63 6b 21 32 | 38 3d 62 6c 6f 63 6b 21 |:block!2|8=block!|
|00001390| 30 3a 62 6c 6f 63 6b 21 | 33 32 3d 62 6c 6f 63 6b |0:block!|32=block|
|000013a0| 21 34 3a 62 6c 6f 63 6b | 21 31 32 3d 30 3a 62 6c |!4:block|!12=0:bl|
|000013b0| 6f 63 6b 21 31 36 3d 31 | 3a 62 6c 6f 63 6b 21 33 |ock!16=1|:block!3|
|000013c0| 36 3d 30 3a 62 6c 6f 63 | 6b 21 34 30 3d 26 46 46 |6=0:bloc|k!40=&FF|
|000013d0| 39 3a 24 28 62 6c 6f 63 | 6b 2b 34 34 29 3d 66 69 |9:$(bloc|k+44)=fi|
|000013e0| 6c 65 6e 61 6d 65 24 2b | bd 30 3a 21 62 6c 6f 63 |lename$+|.0:!bloc|
|000013f0| 6b 3d 28 34 34 2b a9 66 | 69 6c 65 6e 61 6d 65 24 |k=(44+.f|ilename$|
|00001400| 2b 34 29 80 ac 33 0d 03 | 34 3d 20 20 c8 99 20 57 |+4)..3..|4= .. W|
|00001410| 53 65 6e 64 4d 73 67 25 | 2c 31 37 2c 62 6c 6f 63 |SendMsg%|,17,bloc|
|00001420| 6b 2c 64 72 6f 70 77 69 | 6e 25 2c 64 72 6f 70 69 |k,dropwi|n%,dropi|
|00001430| 63 6f 25 3a f4 20 53 65 | 6e 64 20 44 61 74 61 53 |co%:. Se|nd DataS|
|00001440| 61 76 65 0d 03 3e 38 20 | 20 44 61 74 61 53 61 76 |ave..>8 | DataSav|
|00001450| 65 52 65 66 25 3d 62 6c | 6f 63 6b 21 38 3a f4 20 |eRef%=bl|ock!8:. |
|00001460| 52 65 6d 65 6d 62 65 72 | 20 6d 79 72 65 66 20 66 |Remember| myref f|
|00001470| 6f 72 20 44 61 74 61 53 | 61 76 65 0d 03 48 37 20 |or DataS|ave..H7 |
|00001480| 20 f2 63 6c 6f 73 65 5f | 77 69 6e 64 6f 77 28 77 | .close_|window(w|
|00001490| 69 6e 5f 73 61 76 65 25 | 29 3a f4 20 43 6c 6f 73 |in_save%|):. Clos|
|000014a0| 65 20 73 61 76 65 20 66 | 69 6c 65 20 77 69 6e 64 |e save f|ile wind|
|000014b0| 6f 77 0d 03 52 05 20 0d | 03 5c 18 20 c9 20 38 20 |ow..R. .|.\. . 8 |
|000014c0| 3a 20 f4 20 4b 65 79 20 | 70 72 65 73 73 65 64 0d |: . Key |pressed.|
|000014d0| 03 66 47 20 20 77 69 6e | 25 3d 70 6f 6c 6c 21 30 |.fG win|%=poll!0|
|000014e0| 3a 69 63 6f 25 3d 70 6f | 6c 6c 21 34 3a 63 68 61 |:ico%=po|ll!4:cha|
|000014f0| 72 25 3d 70 6f 6c 6c 21 | 32 34 3a f4 20 57 69 6e |r%=poll!|24:. Win|
|00001500| 64 6f 77 2c 20 69 63 6f | 6e 2c 20 6b 65 79 20 70 |dow, ico|n, key p|
|00001510| 72 65 73 73 65 64 0d 03 | 70 2d 20 20 e7 28 77 69 |ressed..|p- .(wi|
|00001520| 6e 25 3d 77 69 6e 5f 73 | 61 76 65 25 29 20 80 20 |n%=win_s|ave%) . |
|00001530| 28 69 63 6f 25 3d 49 66 | 69 6c 65 6e 61 6d 65 25 |(ico%=If|ilename%|
|00001540| 29 20 8c 0d 03 7a 11 20 | 20 20 c8 8e 20 63 68 61 |) ...z. | .. cha|
|00001550| 72 25 20 ca 0d 03 84 1f | 20 20 20 20 c9 20 31 33 |r% .....| . 13|
|00001560| 20 3a 20 f4 20 52 65 74 | 75 72 6e 20 70 72 65 73 | : . Ret|urn pres|
|00001570| 73 65 64 0d 03 8e 4b 20 | 20 20 20 f2 65 72 72 6f |sed...K | .erro|
|00001580| 72 28 2d 31 2c 22 50 6c | 65 61 73 65 20 64 72 61 |r(-1,"Pl|ease dra|
|00001590| 67 20 74 68 65 20 73 70 | 72 69 74 65 20 66 69 6c |g the sp|rite fil|
|000015a0| 65 20 69 63 6f 6e 20 74 | 6f 20 61 20 64 69 72 65 |e icon t|o a dire|
|000015b0| 63 74 6f 72 79 20 76 69 | 65 77 65 72 22 29 0d 03 |ctory vi|ewer")..|
|000015c0| 98 1f 20 20 20 20 c9 20 | 32 37 20 3a 20 f4 20 45 |.. . |27 : . E|
|000015d0| 73 63 61 70 65 20 70 72 | 65 73 73 65 64 0d 03 a2 |scape pr|essed...|
|000015e0| 21 20 20 20 20 20 f2 63 | 6c 6f 73 65 5f 77 69 6e |! .c|lose_win|
|000015f0| 64 6f 77 28 77 69 6e 5f | 73 61 76 65 25 29 0d 03 |dow(win_|save%)..|
|00001600| ac 08 20 20 20 cb 0d 03 | b6 07 20 20 cd 0d 03 c0 |.. ...|.. ....|
|00001610| 05 20 0d 03 ca 25 20 c9 | 20 39 20 3a 20 f4 20 4d |. ...% .| 9 : . M|
|00001620| 65 6e 75 20 73 65 6c 65 | 63 74 69 6f 6e 20 66 72 |enu sele|ction fr|
|00001630| 6f 6d 20 75 73 65 72 0d | 03 d4 41 20 20 c8 99 20 |om user.|..A .. |
|00001640| 57 44 65 63 6f 64 65 4d | 25 2c 2c 6d 65 6e 75 31 |WDecodeM|%,,menu1|
|00001650| 2c 70 6f 6c 6c 2c c4 31 | 30 30 2c 22 20 22 29 20 |,poll,.1|00," ") |
|00001660| b8 20 2c 2c 2c 73 65 6c | 65 63 74 24 3a f4 20 53 |. ,,,sel|ect$:. S|
|00001670| 65 6c 65 63 74 69 6f 6e | 0d 03 de 28 20 20 f4 20 |election|...( . |
|00001680| 44 65 63 6f 64 65 20 6d | 61 69 6e 2f 73 75 62 20 |Decode m|ain/sub |
|00001690| 73 65 6c 65 63 74 69 6f | 6e 20 73 74 72 69 6e 67 |selectio|n string|
|000016a0| 0d 03 e8 8f 20 20 70 65 | 72 69 6f 64 25 3d a7 73 |.... pe|riod%=.s|
|000016b0| 65 6c 65 63 74 24 2c 22 | 2e 22 29 3a e7 70 65 72 |elect$,"|."):.per|
|000016c0| 69 6f 64 25 3e 30 20 8c | 20 73 65 6c 65 63 74 32 |iod%>0 .| select2|
|000016d0| 3d b9 3a 73 65 6c 65 63 | 74 32 24 3d c1 73 65 6c |=.:selec|t2$=.sel|
|000016e0| 65 63 74 24 2c a7 73 65 | 6c 65 63 74 24 2c 22 2e |ect$,.se|lect$,".|
|000016f0| 22 29 2b 31 29 3a 73 65 | 6c 65 63 74 24 3d c0 73 |")+1):se|lect$=.s|
|00001700| 65 6c 65 63 74 24 2c a7 | 73 65 6c 65 63 74 24 2c |elect$,.|select$,|
|00001710| 22 2e 22 29 2d 31 29 20 | 8b 20 73 65 6c 65 63 74 |".")-1) |. select|
|00001720| 32 3d a3 3a 73 65 6c 65 | 63 74 32 24 3d 22 22 0d |2=.:sele|ct2$="".|
|00001730| 03 f2 36 20 20 f4 20 46 | 69 6c 74 65 72 20 63 6c |..6 . F|ilter cl|
|00001740| 69 63 6b 73 20 6f 6e 20 | 72 6f 6f 74 73 20 6f 66 |icks on |roots of|
|00001750| 20 65 6e 74 72 69 65 73 | 20 77 69 74 68 20 73 75 | entries| with su|
|00001760| 62 6d 65 6e 75 0d 03 fc | 12 20 20 c8 8e 20 73 65 |bmenu...|. .. se|
|00001770| 6c 65 63 74 24 20 ca 0d | 04 06 81 20 20 20 c9 20 |lect$ ..|... . |
|00001780| 22 5a 6f 6f 6d 20 69 6e | 22 2c 22 5a 6f 6f 6d 20 |"Zoom in|","Zoom |
|00001790| 6f 75 74 22 2c 22 49 6d | 61 67 65 20 69 6e 66 6f |out","Im|age info|
|000017a0| 22 2c 22 4d 69 72 72 6f | 72 20 69 6d 61 67 65 22 |","Mirro|r image"|
|000017b0| 2c 22 49 6d 61 67 65 20 | 6e 75 6d 62 65 72 22 2c |,"Image |number",|
|000017c0| 22 53 61 76 65 20 69 6d | 61 67 65 22 2c 22 4d 6f |"Save im|age","Mo|
|000017d0| 64 65 20 73 65 74 22 2c | 22 53 74 61 74 75 73 22 |de set",|"Status"|
|000017e0| 20 3a 20 e7 73 65 6c 65 | 63 74 32 20 8b 20 73 65 | : .sele|ct2 . se|
|000017f0| 6c 65 63 74 24 3d 22 22 | 0d 04 10 07 20 20 cb 0d |lect$=""|.... ..|
|00001800| 04 1a 12 20 20 c8 8e 20 | 73 65 6c 65 63 74 24 20 |... .. |select$ |
|00001810| ca 0d 04 24 1a 20 20 20 | c9 20 22 22 20 3a 20 f4 |...$. |. "" : .|
|00001820| 20 44 6f 20 6e 6f 74 68 | 69 6e 67 0d 04 2e 20 20 | Do noth|ing... |
|00001830| 20 20 c9 20 22 51 75 69 | 74 22 20 3a 20 f4 20 51 | . "Qui|t" : . Q|
|00001840| 75 69 74 20 70 72 6f 67 | 72 61 6d 0d 04 38 1f 20 |uit prog|ram..8. |
|00001850| 20 20 20 f2 64 69 65 3a | f4 20 54 69 64 79 20 75 | .die:|. Tidy u|
|00001860| 70 20 61 6e 64 20 65 78 | 69 74 0d 04 42 29 20 20 |p and ex|it..B) |
|00001870| 20 c9 20 22 41 75 74 6f | 20 7a 6f 6f 6d 22 20 3a | . "Auto| zoom" :|
|00001880| 20 f4 20 54 6f 67 67 6c | 65 20 61 75 74 6f 20 7a | . Toggl|e auto z|
|00001890| 6f 6f 6d 0d 04 4c 23 20 | 20 20 20 41 75 74 6f 5a |oom..L# | AutoZ|
|000018a0| 6f 6f 6d 3d ac 41 75 74 | 6f 5a 6f 6f 6d 3a f4 20 |oom=.Aut|oZoom:. |
|000018b0| 54 6f 67 67 6c 65 0d 04 | 56 42 20 20 20 c9 20 22 |Toggle..|VB . "|
|000018c0| 5a 6f 6f 6d 20 69 6e 22 | 2c 22 5a 6f 6f 6d 20 6f |Zoom in"|,"Zoom o|
|000018d0| 75 74 22 2c 22 4e 6f 72 | 6d 61 6c 20 73 69 7a 65 |ut","Nor|mal size|
|000018e0| 22 20 3a 20 f4 20 5a 6f | 6f 6d 20 69 6e 2c 6f 75 |" : . Zo|om in,ou|
|000018f0| 74 2c 6e 6f 72 6d 61 6c | 0d 04 60 41 20 20 20 20 |t,normal|..`A |
|00001900| 4f 6c 64 5a 6f 6f 6d 58 | 3d 5a 6f 6f 6d 58 3a 4f |OldZoomX|=ZoomX:O|
|00001910| 6c 64 5a 6f 6f 6d 59 3d | 5a 6f 6f 6d 59 3a f4 20 |ldZoomY=|ZoomY:. |
|00001920| 52 65 6d 65 6d 62 65 72 | 20 6f 6c 64 20 7a 6f 6f |Remember| old zoo|
|00001930| 6d 20 66 61 63 74 6f 72 | 73 0d 04 6a 14 20 20 20 |m factor|s..j. |
|00001940| 20 c8 8e 20 73 65 6c 65 | 63 74 24 20 ca 0d 04 74 | .. sele|ct$ ...t|
|00001950| 84 20 20 20 20 20 c9 20 | 22 5a 6f 6f 6d 20 69 6e |. . |"Zoom in|
|00001960| 22 3a 20 e7 73 65 6c 65 | 63 74 32 24 3d 22 42 6f |": .sele|ct2$="Bo|
|00001970| 74 68 22 20 8c 20 5a 6f | 6f 6d 58 3d 5a 6f 6f 6d |th" . Zo|omX=Zoom|
|00001980| 58 2a 32 3a 5a 6f 6f 6d | 59 3d 5a 6f 6f 6d 59 2a |X*2:Zoom|Y=ZoomY*|
|00001990| 32 20 8b 20 e7 73 65 6c | 65 63 74 32 24 3d 22 78 |2 . .sel|ect2$="x|
|000019a0| 22 20 8c 20 5a 6f 6f 6d | 58 3d 5a 6f 6f 6d 58 2a |" . Zoom|X=ZoomX*|
|000019b0| 32 20 8b 20 e7 73 65 6c | 65 63 74 32 24 3d 22 79 |2 . .sel|ect2$="y|
|000019c0| 22 20 8c 20 5a 6f 6f 6d | 59 3d 5a 6f 6f 6d 59 2a |" . Zoom|Y=ZoomY*|
|000019d0| 32 0d 04 7e 85 20 20 20 | 20 20 c9 20 22 5a 6f 6f |2..~. | . "Zoo|
|000019e0| 6d 20 6f 75 74 22 3a 20 | e7 73 65 6c 65 63 74 32 |m out": |.select2|
|000019f0| 24 3d 22 42 6f 74 68 22 | 20 8c 20 5a 6f 6f 6d 58 |$="Both"| . ZoomX|
|00001a00| 3d 5a 6f 6f 6d 58 2f 32 | 3a 5a 6f 6f 6d 59 3d 5a |=ZoomX/2|:ZoomY=Z|
|00001a10| 6f 6f 6d 59 2f 32 20 8b | 20 e7 73 65 6c 65 63 74 |oomY/2 .| .select|
|00001a20| 32 24 3d 22 78 22 20 8c | 20 5a 6f 6f 6d 58 3d 5a |2$="x" .| ZoomX=Z|
|00001a30| 6f 6f 6d 58 2f 32 20 8b | 20 e7 73 65 6c 65 63 74 |oomX/2 .| .select|
|00001a40| 32 24 3d 22 79 22 20 8c | 20 5a 6f 6f 6d 59 3d 5a |2$="y" .| ZoomY=Z|
|00001a50| 6f 6f 6d 59 2f 32 0d 04 | 88 29 20 20 20 20 20 c9 |oomY/2..|.) .|
|00001a60| 20 22 4e 6f 72 6d 61 6c | 20 73 69 7a 65 22 3a 20 | "Normal| size": |
|00001a70| 5a 6f 6f 6d 58 3d 31 3a | 5a 6f 6f 6d 59 3d 31 0d |ZoomX=1:|ZoomY=1.|
|00001a80| 04 92 09 20 20 20 20 cb | 0d 04 9c 4c 20 20 20 20 |... .|...L |
|00001a90| f4 20 53 65 74 20 69 6d | 61 67 65 20 77 69 6e 64 |. Set im|age wind|
|00001aa0| 6f 77 20 65 78 74 65 6e | 74 20 61 6e 64 20 74 69 |ow exten|t and ti|
|00001ab0| 74 6c 65 20 61 63 63 6f | 72 64 69 6e 67 20 74 6f |tle acco|rding to|
|00001ac0| 20 63 75 72 72 65 6e 74 | 20 7a 6f 6f 6d 20 66 61 | current| zoom fa|
|00001ad0| 63 74 6f 72 0d 04 a6 43 | 20 20 20 20 21 62 6c 6f |ctor...C| !blo|
|00001ae0| 63 6b 3d 30 3a 62 6c 6f | 63 6b 21 34 3d 30 3a 62 |ck=0:blo|ck!4=0:b|
|00001af0| 6c 6f 63 6b 21 38 3d a4 | 73 70 72 57 2a 5a 6f 6f |lock!8=.|sprW*Zoo|
|00001b00| 6d 58 3a 62 6c 6f 63 6b | 21 31 32 3d a4 73 70 72 |mX:block|!12=.spr|
|00001b10| 48 2a 5a 6f 6f 6d 59 0d | 04 b0 43 20 20 20 20 c8 |H*ZoomY.|..C .|
|00001b20| 99 20 57 53 65 74 45 25 | 2c 77 69 6e 5f 69 6d 67 |. WSetE%|,win_img|
|00001b30| 25 2c 62 6c 6f 63 6b 3a | f4 20 53 65 74 20 77 69 |%,block:|. Set wi|
|00001b40| 6e 64 6f 77 20 65 78 74 | 65 6e 74 20 74 6f 20 7a |ndow ext|ent to z|
|00001b50| 6f 6f 6d 65 64 20 73 69 | 7a 65 0d 04 ba 29 20 20 |oomed si|ze...) |
|00001b60| 20 20 24 57 54 69 74 6c | 65 25 3d a4 69 6d 61 67 | $WTitl|e%=.imag|
|00001b70| 65 5f 74 69 74 6c 65 3a | f4 20 4e 65 77 20 74 69 |e_title:|. New ti|
|00001b80| 74 6c 65 0d 04 c4 42 20 | 20 20 20 21 62 6c 6f 63 |tle...B | !bloc|
|00001b90| 6b 3d 77 69 6e 5f 69 6d | 67 25 3a c8 99 20 57 47 |k=win_im|g%:.. WG|
|00001ba0| 65 74 57 53 25 2c 2c 62 | 6c 6f 63 6b 3a f4 20 52 |etWS%,,b|lock:. R|
|00001bb0| 65 61 64 20 77 69 6e 64 | 6f 77 27 73 20 70 6f 73 |ead wind|ow's pos|
|00001bc0| 69 74 69 6f 6e 0d 04 ce | 4c 20 20 20 20 64 78 25 |ition...|L dx%|
|00001bd0| 3d 28 62 6c 6f 63 6b 21 | 31 32 2d 62 6c 6f 63 6b |=(block!|12-block|
|00001be0| 21 34 29 2f 32 3a 64 79 | 25 3d 28 62 6c 6f 63 6b |!4)/2:dy|%=(block|
|00001bf0| 21 31 36 2d 62 6c 6f 63 | 6b 21 38 29 2f 32 3a f4 |!16-bloc|k!8)/2:.|
|00001c00| 20 48 61 6c 66 20 77 69 | 6e 64 6f 77 20 73 69 7a | Half wi|ndow siz|
|00001c10| 65 0d 04 d8 48 20 20 20 | 20 76 78 25 3d 62 6c 6f |e...H | vx%=blo|
|00001c20| 63 6b 21 32 30 2b 64 78 | 25 3a 76 79 25 3d 62 6c |ck!20+dx|%:vy%=bl|
|00001c30| 6f 63 6b 21 32 34 2d 64 | 79 25 3a f4 20 56 65 63 |ock!24-d|y%:. Vec|
|00001c40| 74 6f 72 20 66 72 6f 6d | 20 63 65 6e 74 72 65 20 |tor from| centre |
|00001c50| 74 6f 20 6f 72 69 67 69 | 6e 0d 04 e2 49 20 20 20 |to origi|n...I |
|00001c60| 20 f4 20 43 61 6c 63 75 | 6c 61 74 65 20 6e 65 77 | . Calcu|late new|
|00001c70| 20 73 63 72 6f 6c 6c 20 | 6f 66 66 73 65 74 73 20 | scroll |offsets |
|00001c80| 62 79 20 73 63 61 6c 69 | 6e 67 20 76 65 63 74 6f |by scali|ng vecto|
|00001c90| 72 20 61 6e 64 20 72 65 | 2d 74 72 61 6e 73 70 6f |r and re|-transpo|
|00001ca0| 73 65 0d 04 ec 47 20 20 | 20 20 62 6c 6f 63 6b 21 |se...G | block!|
|00001cb0| 32 30 3d 76 78 25 2a 5a | 6f 6f 6d 58 2f 4f 6c 64 |20=vx%*Z|oomX/Old|
|00001cc0| 5a 6f 6f 6d 58 2d 64 78 | 25 3a 62 6c 6f 63 6b 21 |ZoomX-dx|%:block!|
|00001cd0| 32 34 3d 76 79 25 2a 5a | 6f 6f 6d 59 2f 4f 6c 64 |24=vy%*Z|oomY/Old|
|00001ce0| 5a 6f 6f 6d 59 2b 64 79 | 25 0d 04 f6 3c 20 20 20 |ZoomY+dy|%...< |
|00001cf0| 20 f2 63 6c 6f 73 65 5f | 77 69 6e 64 6f 77 28 77 | .close_|window(w|
|00001d00| 69 6e 5f 69 6d 67 25 29 | 3a f2 6f 70 65 6e 5f 77 |in_img%)|:.open_w|
|00001d10| 69 6e 64 6f 77 28 77 69 | 6e 5f 69 6d 67 25 2c 62 |indow(wi|n_img%,b|
|00001d20| 6c 6f 63 6b 29 0d 05 00 | 35 20 20 20 c9 20 22 53 |lock)...|5 . "S|
|00001d30| 61 76 65 20 69 6d 61 67 | 65 22 20 3a 20 f4 20 53 |ave imag|e" : . S|
|00001d40| 61 76 65 20 77 68 6f 6c | 65 20 6f 72 20 70 61 72 |ave whol|e or par|
|00001d50| 74 20 6f 66 20 69 6d 61 | 67 65 0d 05 0a 33 20 20 |t of ima|ge...3 |
|00001d60| 20 20 53 61 76 65 5f 6b | 69 6e 64 24 3d 73 65 6c | Save_k|ind$=sel|
|00001d70| 65 63 74 32 24 3a f4 20 | 52 65 6d 65 6d 62 65 72 |ect2$:. |Remember|
|00001d80| 20 74 79 70 65 20 6f 66 | 20 73 61 76 65 0d 05 14 | type of| save...|
|00001d90| 39 20 20 20 20 f2 6f 70 | 65 6e 5f 77 69 6e 64 6f |9 .op|en_windo|
|00001da0| 77 28 77 69 6e 5f 73 61 | 76 65 25 2c 30 29 3a f4 |w(win_sa|ve%,0):.|
|00001db0| 20 4f 70 65 6e 20 73 61 | 76 65 20 66 69 6c 65 20 | Open sa|ve file |
|00001dc0| 77 69 6e 64 6f 77 0d 05 | 1e 39 20 20 20 c9 20 22 |window..|.9 . "|
|00001dd0| 49 6e 63 6c 75 64 65 20 | 70 61 6c 65 74 74 65 22 |Include |palette"|
|00001de0| 20 3a 20 f4 20 54 6f 67 | 67 6c 65 20 73 61 76 65 | : . Tog|gle save|
|00001df0| 2d 70 61 6c 65 74 74 65 | 20 6f 6e 2f 6f 66 66 0d |-palette| on/off.|
|00001e00| 05 28 23 20 20 20 20 50 | 61 6c 6f 6e 6f 66 66 3d |.(# P|alonoff=|
|00001e10| ac 50 61 6c 6f 6e 6f 66 | 66 3a f4 20 54 6f 67 67 |.Palonof|f:. Togg|
|00001e20| 6c 65 0d 05 32 41 20 20 | 20 c9 20 22 41 75 74 6f |le..2A | . "Auto|
|00001e30| 20 6d 6f 64 65 20 73 65 | 6c 65 63 74 22 20 3a 20 | mode se|lect" : |
|00001e40| f4 20 54 6f 67 67 6c 65 | 20 61 75 74 6f 20 6d 6f |. Toggle| auto mo|
|00001e50| 64 65 20 73 65 6c 65 63 | 74 69 6f 6e 20 6f 6e 2f |de selec|tion on/|
|00001e60| 6f 66 66 0d 05 3c 23 20 | 20 20 20 41 75 74 6f 4d |off..<# | AutoM|
|00001e70| 6f 64 65 3d ac 41 75 74 | 6f 4d 6f 64 65 3a f4 20 |ode=.Aut|oMode:. |
|00001e80| 54 6f 67 67 6c 65 0d 05 | 46 47 20 20 20 c9 20 22 |Toggle..|FG . "|
|00001e90| 41 75 74 6f 20 70 61 6c | 65 74 74 65 20 73 65 6c |Auto pal|ette sel|
|00001ea0| 65 63 74 22 20 3a 20 f4 | 20 54 6f 67 67 6c 65 20 |ect" : .| Toggle |
|00001eb0| 61 75 74 6f 20 70 61 6c | 65 74 74 65 20 73 65 6c |auto pal|ette sel|
|00001ec0| 65 63 74 69 6f 6e 20 6f | 6e 2f 6f 66 66 0d 05 50 |ection o|n/off..P|
|00001ed0| 21 20 20 20 20 41 75 74 | 6f 50 61 6c 3d ac 41 75 |! Aut|oPal=.Au|
|00001ee0| 74 6f 50 61 6c 3a f4 20 | 54 6f 67 67 6c 65 0d 05 |toPal:. |Toggle..|
|00001ef0| 5a 3c 20 20 20 c9 20 22 | 42 6c 61 63 6b 20 61 6e |Z< . "|Black an|
|00001f00| 64 20 77 68 69 74 65 22 | 20 3a 20 f4 20 54 6f 67 |d white"| : . Tog|
|00001f10| 67 6c 65 20 62 6c 61 63 | 6b 20 61 6e 64 20 77 68 |gle blac|k and wh|
|00001f20| 69 74 65 20 6f 6e 2f 6f | 66 66 0d 05 64 27 20 20 |ite on/o|ff..d' |
|00001f30| 20 20 42 6c 61 63 6b 57 | 68 69 74 65 3d ac 42 6c | BlackW|hite=.Bl|
|00001f40| 61 63 6b 57 68 69 74 65 | 3a f4 20 54 6f 67 67 6c |ackWhite|:. Toggl|
|00001f50| 65 0d 05 6e 2e 20 20 20 | c9 20 22 47 49 46 20 73 |e..n. |. "GIF s|
|00001f60| 63 61 6e 22 20 3a 20 f4 | 20 54 6f 67 67 6c 65 20 |can" : .| Toggle |
|00001f70| 47 49 46 20 73 63 61 6e | 20 6f 6e 2f 6f 66 66 0d |GIF scan| on/off.|
|00001f80| 05 78 18 20 20 20 20 47 | 49 46 53 63 61 6e 3d ac |.x. G|IFScan=.|
|00001f90| 47 49 46 53 63 61 6e 0d | 05 82 2b 20 20 20 c9 20 |GIFScan.|..+ . |
|00001fa0| 22 4d 6f 64 65 20 73 65 | 74 22 20 3a 20 f4 20 53 |"Mode se|t" : . S|
|00001fb0| 65 6c 65 63 74 20 6e 65 | 77 20 6d 6f 64 65 20 73 |elect ne|w mode s|
|00001fc0| 65 74 0d 05 8c 19 20 20 | 20 20 c8 8e 20 c0 73 65 |et.... | .. .se|
|00001fd0| 6c 65 63 74 32 24 2c 34 | 29 20 ca 0d 05 96 29 20 |lect2$,4|) ....) |
|00001fe0| 20 20 20 20 c9 20 22 52 | 6f 6f 74 22 20 3a 20 f4 | . "R|oot" : .|
|00001ff0| 20 4e 6f 20 73 65 6c 65 | 63 74 69 6f 6e 20 28 72 | No sele|ction (r|
|00002000| 6f 6f 74 29 0d 05 a0 2b | 20 20 20 20 20 c9 20 22 |oot)...+| . "|
|00002010| 4e 6f 6e 65 22 20 3a 20 | 4d 6f 64 65 53 65 74 3d |None" : |ModeSet=|
|00002020| 30 3a f4 20 4e 6f 20 6d | 6f 64 65 20 73 65 74 0d |0:. No m|ode set.|
|00002030| 05 aa 37 20 20 20 20 20 | c9 20 22 4e 6f 72 6d 22 |..7 |. "Norm"|
|00002040| 20 3a 20 4d 6f 64 65 53 | 65 74 3d 31 3a f4 20 4e | : ModeS|et=1:. N|
|00002050| 6f 72 6d 61 6c 20 6d 6f | 6e 69 74 6f 72 20 6d 6f |ormal mo|nitor mo|
|00002060| 64 65 20 73 65 74 0d 05 | b4 3a 20 20 20 20 20 c9 |de set..|.: .|
|00002070| 20 22 4d 75 6c 74 22 20 | 3a 20 4d 6f 64 65 53 65 | "Mult" |: ModeSe|
|00002080| 74 3d 32 3a f4 20 4d 75 | 6c 74 69 73 79 6e 63 20 |t=2:. Mu|ltisync |
|00002090| 6d 6f 6e 69 74 6f 72 20 | 6d 6f 64 65 20 73 65 74 |monitor |mode set|
|000020a0| 0d 05 be 35 20 20 20 20 | 20 7f 20 3a 20 f4 20 55 |...5 | . : . U|
|000020b0| 73 65 72 20 6d 6f 64 65 | 20 73 65 74 2c 20 63 68 |ser mode| set, ch|
|000020c0| 65 63 6b 20 61 6e 64 20 | 69 66 20 6f 6b 2c 20 63 |eck and |if ok, c|
|000020d0| 68 61 6e 67 65 0d 05 c8 | 98 20 20 20 20 20 20 73 |hange...|. s|
|000020e0| 24 3d 73 65 6c 65 63 74 | 32 24 3a 70 25 3d a7 73 |$=select|2$:p%=.s|
|000020f0| 24 2c 22 2c 22 29 3a e7 | 70 25 3e 30 20 8c 20 6d |$,","):.|p%>0 . m|
|00002100| 31 25 3d bb 73 24 3a 73 | 24 3d c1 73 24 2c 70 25 |1%=.s$:s|$=.s$,p%|
|00002110| 2b 31 29 3a 70 25 3d a7 | 73 24 2c 22 2c 22 29 3a |+1):p%=.|s$,","):|
|00002120| e7 70 25 3e 30 20 8c 20 | 6d 32 25 3d bb 73 24 3a |.p%>0 . |m2%=.s$:|
|00002130| 73 24 3d c1 73 24 2c 70 | 25 2b 31 29 3a 70 25 3d |s$=.s$,p|%+1):p%=|
|00002140| a7 73 24 2c 22 2c 22 29 | 3a e7 70 25 3e 30 20 8c |.s$,",")|:.p%>0 .|
|00002150| 20 6d 33 25 3d bb 73 24 | 3a 73 24 3d c1 73 24 2c | m3%=.s$|:s$=.s$,|
|00002160| 70 25 2b 31 29 3a 6d 34 | 25 3d bb 73 24 0d 05 d2 |p%+1):m4|%=.s$...|
|00002170| da 20 20 20 20 20 20 e7 | 70 25 3e 30 20 8c 20 55 |. .|p%>0 . U|
|00002180| 73 65 72 4d 6f 64 65 53 | 65 74 25 28 31 29 3d 6d |serModeS|et%(1)=m|
|00002190| 31 25 3a 55 73 65 72 4d | 6f 64 65 53 65 74 25 28 |1%:UserM|odeSet%(|
|000021a0| 32 29 3d 6d 32 25 3a 55 | 73 65 72 4d 6f 64 65 53 |2)=m2%:U|serModeS|
|000021b0| 65 74 25 28 33 29 3d 6d | 33 25 3a 55 73 65 72 4d |et%(3)=m|3%:UserM|
|000021c0| 6f 64 65 53 65 74 25 28 | 34 29 3d 6d 34 25 3a 4d |odeSet%(|4)=m4%:M|
|000021d0| 6f 64 65 53 65 74 3d 33 | 20 8b 20 f2 65 72 72 6f |odeSet=3| . .erro|
|000021e0| 72 28 2d 31 2c 22 42 61 | 64 20 75 73 65 72 20 6d |r(-1,"Ba|d user m|
|000021f0| 6f 64 65 20 73 65 74 2e | 20 50 6c 65 61 73 65 20 |ode set.| Please |
|00002200| 75 73 65 20 27 3c 32 63 | 6f 6c 6d 6f 64 65 3e 2c |use '<2c|olmode>,|
|00002210| 3c 34 63 6f 6c 6d 6f 64 | 65 3e 2c 3c 31 36 63 6f |<4colmod|e>,<16co|
|00002220| 6c 6d 6f 64 65 3e 2c 3c | 32 35 36 63 6f 6c 6d 6f |lmode>,<|256colmo|
|00002230| 64 65 3e 27 2c 20 65 2e | 67 2e 20 27 31 2c 32 2c |de>', e.|g. '1,2,|
|00002240| 33 2c 34 27 2e 22 29 0d | 05 dc 09 20 20 20 20 cb |3,4'.").|... .|
|00002250| 0d 05 e6 3c 20 20 20 c9 | 20 22 45 72 72 6f 72 20 |...< .| "Error |
|00002260| 73 70 72 65 61 64 69 6e | 67 22 20 3a 20 f4 20 54 |spreadin|g" : . T|
|00002270| 6f 67 67 6c 65 20 65 72 | 72 6f 72 20 73 70 72 65 |oggle er|ror spre|
|00002280| 61 64 69 6e 67 20 6f 6e | 2f 6f 66 66 0d 05 f0 3c |ading on|/off...<|
|00002290| 20 20 20 20 45 72 72 53 | 70 72 65 61 64 3d ac 45 | ErrS|pread=.E|
|000022a0| 72 72 53 70 72 65 61 64 | 3a f2 76 61 72 28 22 65 |rrSpread|:.var("e|
|000022b0| 73 70 72 22 2c 45 72 72 | 53 70 72 65 61 64 29 3a |spr",Err|Spread):|
|000022c0| f4 20 54 6f 67 67 6c 65 | 0d 05 fa 25 20 20 20 c9 |. Toggle|...% .|
|000022d0| 20 22 50 61 6c 65 74 74 | 65 22 20 3a 20 f4 20 53 | "Palett|e" : . S|
|000022e0| 65 6c 65 63 74 20 70 61 | 6c 65 74 74 65 0d 06 04 |elect pa|lette...|
|000022f0| 15 20 20 20 20 c8 8e 20 | 73 65 6c 65 63 74 32 24 |. .. |select2$|
|00002300| 20 ca 0d 06 0e 24 20 20 | 20 20 20 c9 20 22 49 6d | ....$ | . "Im|
|00002310| 61 67 65 22 20 3a 20 f2 | 73 65 74 5f 70 61 6c 65 |age" : .|set_pale|
|00002320| 74 74 65 28 31 29 0d 06 | 18 26 20 20 20 20 20 c9 |tte(1)..|.& .|
|00002330| 20 22 44 65 73 6b 74 6f | 70 22 20 3a 20 f2 73 65 | "Deskto|p" : .se|
|00002340| 74 5f 70 61 6c 65 74 74 | 65 28 30 29 0d 06 22 26 |t_palett|e(0).."&|
|00002350| 20 20 20 20 20 c9 20 22 | 44 65 66 61 75 6c 74 22 | . "|Default"|
|00002360| 20 3a 20 f2 73 65 74 5f | 70 61 6c 65 74 74 65 28 | : .set_|palette(|
|00002370| 32 29 0d 06 2c 09 20 20 | 20 20 cb 0d 06 36 30 20 |2)..,. | ...60 |
|00002380| 20 20 c9 20 22 49 6d 61 | 67 65 20 70 61 6c 65 74 | . "Ima|ge palet|
|00002390| 74 65 22 20 3a 20 f4 20 | 53 65 74 20 69 6d 61 67 |te" : . |Set imag|
|000023a0| 65 27 73 20 70 61 6c 65 | 74 74 65 0d 06 40 17 20 |e's pale|tte..@. |
|000023b0| 20 20 20 f2 73 65 74 5f | 70 61 6c 65 74 74 65 28 | .set_|palette(|
|000023c0| 31 29 0d 06 4a 32 20 20 | 20 c9 20 22 44 65 73 6b |1)..J2 | . "Desk|
|000023d0| 74 6f 70 20 70 61 6c 65 | 74 74 65 22 20 3a 20 f4 |top pale|tte" : .|
|000023e0| 20 53 65 74 20 64 65 73 | 6b 74 6f 70 20 70 61 6c | Set des|ktop pal|
|000023f0| 65 74 74 65 0d 06 54 17 | 20 20 20 20 f2 73 65 74 |ette..T.| .set|
|00002400| 5f 70 61 6c 65 74 74 65 | 28 30 29 0d 06 5e 34 20 |_palette|(0)..^4 |
|00002410| 20 20 c9 20 22 53 74 61 | 6e 64 61 72 64 20 70 61 | . "Sta|ndard pa|
|00002420| 6c 65 74 74 65 22 20 3a | 20 f4 20 53 65 74 20 73 |lette" :| . Set s|
|00002430| 74 61 6e 64 61 72 64 20 | 70 61 6c 65 74 74 65 0d |tandard |palette.|
|00002440| 06 68 17 20 20 20 20 f2 | 73 65 74 5f 70 61 6c 65 |.h. .|set_pale|
|00002450| 74 74 65 28 32 29 0d 06 | 72 28 20 20 20 c9 20 22 |tte(2)..|r( . "|
|00002460| 49 6d 61 67 65 20 6e 75 | 6d 62 65 72 22 20 3a 20 |Image nu|mber" : |
|00002470| f4 20 49 6d 61 67 65 20 | 6e 75 6d 62 65 72 0d 06 |. Image |number..|
|00002480| 7c 39 20 20 20 20 49 6d | 61 67 65 4e 72 25 3d bb ||9 Im|ageNr%=.|
|00002490| 28 73 65 6c 65 63 74 32 | 24 29 3a f4 20 4e 65 77 |(select2|$):. New|
|000024a0| 20 76 61 6c 75 65 20 66 | 6f 72 20 69 6d 61 67 65 | value f|or image|
|000024b0| 20 6e 75 6d 62 65 72 0d | 06 86 29 20 20 20 c9 20 | number.|..) . |
|000024c0| 22 52 6f 74 61 74 65 20 | 69 6d 61 67 65 22 20 3a |"Rotate |image" :|
|000024d0| 20 f4 20 52 6f 74 61 74 | 65 20 73 70 72 69 74 65 | . Rotat|e sprite|
|000024e0| 0d 06 90 47 20 20 20 20 | 6e 65 77 77 6f 72 64 73 |...G |newwords|
|000024f0| 25 3d 28 53 70 72 48 25 | 2a 53 70 72 43 6f 6c 62 |%=(SprH%|*SprColb|
|00002500| 69 74 73 25 2b 33 31 29 | 3e 3e 35 3a f4 20 57 6f |its%+31)|>>5:. Wo|
|00002510| 72 64 73 20 77 69 64 74 | 68 20 6f 66 20 6e 65 77 |rds widt|h of new|
|00002520| 20 73 70 72 69 74 65 0d | 06 9a 47 20 20 20 20 6f | sprite.|..G o|
|00002530| 6c 64 77 6f 72 64 73 25 | 3d 28 53 70 72 57 25 2a |ldwords%|=(SprW%*|
|00002540| 53 70 72 43 6f 6c 62 69 | 74 73 25 2b 33 31 29 3e |SprColbi|ts%+31)>|
|00002550| 3e 35 3a f4 20 57 6f 72 | 64 73 20 77 69 64 74 68 |>5:. Wor|ds width|
|00002560| 20 6f 66 20 6f 6c 64 20 | 73 70 72 69 74 65 0d 06 | of old |sprite..|
|00002570| a4 3b 20 20 20 20 f2 76 | 61 72 28 22 77 69 64 74 |.; .v|ar("widt|
|00002580| 22 2c 53 70 72 57 25 29 | 3a f2 76 61 72 28 22 68 |",SprW%)|:.var("h|
|00002590| 65 69 67 22 2c 53 70 72 | 48 25 29 3a f4 20 4d 6f |eig",Spr|H%):. Mo|
|000025a0| 64 75 6c 65 20 69 6e 66 | 6f 0d 06 ae 43 20 20 20 |dule inf|o...C |
|000025b0| 20 73 69 7a 65 64 69 66 | 25 3d 6e 65 77 77 6f 72 | sizedif|%=newwor|
|000025c0| 64 73 25 2a 53 70 72 57 | 25 2d 6f 6c 64 77 6f 72 |ds%*SprW|%-oldwor|
|000025d0| 64 73 25 2a 53 70 72 48 | 25 3a f4 20 4c 6f 6d 65 |ds%*SprH|%:. Lome|
|000025e0| 6d 20 64 69 66 66 65 72 | 65 6e 63 65 0d 06 b8 4a |m differ|ence...J|
|000025f0| 20 20 20 20 6d 61 78 6c | 6f 6d 65 6d 25 3d a4 6d | maxl|omem%=.m|
|00002600| 61 78 28 4c 6f 6d 65 6d | 25 2c 4c 6f 6d 65 6d 25 |ax(Lomem|%,Lomem%|
|00002610| 2b 73 69 7a 65 64 69 66 | 25 29 3a f4 20 53 61 66 |+sizedif|%):. Saf|
|00002620| 65 20 6c 6f 6d 65 6d 20 | 66 6f 72 20 72 6f 74 61 |e lomem |for rota|
|00002630| 74 65 20 62 75 66 0d 06 | c2 2b 20 20 20 20 e7 a4 |te buf..|.+ ..|
|00002640| 6e 65 77 5f 69 6d 61 67 | 65 28 53 70 72 4d 6f 64 |new_imag|e(SprMod|
|00002650| 65 25 2c 53 70 72 48 25 | 2c 53 70 72 57 25 29 20 |e%,SprH%|,SprW%) |
|00002660| 8c 0d 06 cc 43 20 20 20 | 20 20 6c 69 6e 65 73 70 |....C | linesp|
|00002670| 65 72 63 6f 6c 25 3d 33 | 32 20 81 20 53 70 72 43 |ercol%=3|2 . SprC|
|00002680| 6f 6c 62 69 74 73 25 3a | f4 20 42 75 66 66 65 72 |olbits%:|. Buffer|
|00002690| 20 73 69 7a 65 20 69 6e | 20 6c 69 6e 65 20 63 68 | size in| line ch|
|000026a0| 75 6e 6b 73 0d 06 d6 30 | 20 20 20 20 20 f2 76 61 |unks...0| .va|
|000026b0| 72 28 22 6c 69 6e 65 22 | 2c 6c 69 6e 65 73 70 65 |r("line"|,linespe|
|000026c0| 72 63 6f 6c 25 29 3a f4 | 20 4d 6f 64 75 6c 65 20 |rcol%):.| Module |
|000026d0| 69 6e 66 6f 0d 06 e0 95 | 20 20 20 20 20 e7 28 48 |info....| .(H|
|000026e0| 69 6d 65 6d 25 2d 6d 61 | 78 6c 6f 6d 65 6d 25 29 |imem%-ma|xlomem%)|
|000026f0| 3e 54 69 6e 79 73 69 7a | 65 25 20 8c 20 62 75 66 |>Tinysiz|e% . buf|
|00002700| 25 3d 6d 61 78 6c 6f 6d | 65 6d 25 3a 62 75 66 6c |%=maxlom|em%:bufl|
|00002710| 65 6e 25 3d 48 69 6d 65 | 6d 25 2d 6d 61 78 6c 6f |en%=Hime|m%-maxlo|
|00002720| 6d 65 6d 25 20 8b 20 62 | 75 66 25 3d 54 69 6e 79 |mem% . b|uf%=Tiny|
|00002730| 25 3a 62 75 66 6c 65 6e | 25 3d 54 69 6e 79 73 69 |%:buflen|%=Tinysi|
|00002740| 7a 65 25 3a f4 20 43 68 | 6f 6f 73 65 20 6c 61 72 |ze%:. Ch|oose lar|
|00002750| 67 65 73 74 20 66 72 65 | 65 20 73 70 61 63 65 20 |gest fre|e space |
|00002760| 61 73 20 62 75 66 66 65 | 72 0d 06 ea 5a 20 20 20 |as buffe|r...Z |
|00002770| 20 20 f2 76 61 72 28 22 | 72 6f 74 62 22 2c 62 75 | .var("|rotb",bu|
|00002780| 66 25 29 3a f2 76 61 72 | 28 22 72 6f 74 6c 22 2c |f%):.var|("rotl",|
|00002790| 62 75 66 6c 65 6e 25 20 | 81 20 28 6e 65 77 77 6f |buflen% |. (newwo|
|000027a0| 72 64 73 25 2a 34 2a 6c | 69 6e 65 73 70 65 72 63 |rds%*4*l|inesperc|
|000027b0| 6f 6c 25 29 29 3a f4 20 | 4d 6f 64 75 6c 65 20 69 |ol%)):. |Module i|
|000027c0| 6e 66 6f 0d 06 f4 20 20 | 20 20 20 20 f2 68 6f 75 |nfo... | .hou|
|000027d0| 72 5f 6f 6e 3a f4 20 48 | 6f 75 72 67 6c 61 73 73 |r_on:. H|ourglass|
|000027e0| 20 6f 6e 0d 06 fe 2f 20 | 20 20 20 20 c8 99 20 22 | on.../ | .. "|
|000027f0| 54 72 61 6e 73 6c 61 74 | 6f 72 5f 52 6f 74 61 74 |Translat|or_Rotat|
|00002800| 65 22 3a f4 20 52 6f 74 | 61 74 65 20 73 70 72 69 |e":. Rot|ate spri|
|00002810| 74 65 0d 07 08 22 20 20 | 20 20 20 f2 68 6f 75 72 |te..." | .hour|
|00002820| 5f 6f 66 66 3a f4 20 48 | 6f 75 72 67 6c 61 73 73 |_off:. H|ourglass|
|00002830| 20 6f 66 66 0d 07 12 43 | 20 20 20 20 20 f2 6e 65 | off...C| .ne|
|00002840| 77 5f 69 6d 61 67 65 5f | 77 69 6e 64 6f 77 3a f2 |w_image_|window:.|
|00002850| 6e 65 77 5f 77 69 6e 64 | 6f 77 28 77 69 6e 5f 69 |new_wind|ow(win_i|
|00002860| 6d 67 25 29 3a f4 20 4e | 65 77 20 69 6d 61 67 65 |mg%):. N|ew image|
|00002870| 20 77 69 6e 64 6f 77 0d | 07 1c 09 20 20 20 20 cd | window.|... .|
|00002880| 0d 07 26 28 20 20 20 c9 | 20 22 4d 69 72 72 6f 72 |..&( .| "Mirror|
|00002890| 20 69 6d 61 67 65 22 20 | 3a 20 f4 20 4d 69 72 72 | image" |: . Mirr|
|000028a0| 6f 72 20 69 6d 61 67 65 | 0d 07 30 3b 20 20 20 20 |or image|..0; |
|000028b0| f2 76 61 72 28 22 77 69 | 64 74 22 2c 53 70 72 57 |.var("wi|dt",SprW|
|000028c0| 25 29 3a f2 76 61 72 28 | 22 68 65 69 67 22 2c 53 |%):.var(|"heig",S|
|000028d0| 70 72 48 25 29 3a f4 20 | 4d 6f 64 75 6c 65 20 69 |prH%):. |Module i|
|000028e0| 6e 66 6f 0d 07 3a 1f 20 | 20 20 20 f2 68 6f 75 72 |nfo..:. | .hour|
|000028f0| 5f 6f 6e 3a f4 20 48 6f | 75 72 67 6c 61 73 73 20 |_on:. Ho|urglass |
|00002900| 6f 6e 0d 07 44 59 20 20 | 20 20 e7 73 65 6c 65 63 |on..DY | .selec|
|00002910| 74 32 24 3d 22 78 22 20 | 8c 20 c8 99 20 22 54 72 |t2$="x" |. .. "Tr|
|00002920| 61 6e 73 6c 61 74 6f 72 | 5f 4d 69 72 72 6f 72 58 |anslator|_MirrorX|
|00002930| 22 20 8b 20 c8 99 20 22 | 54 72 61 6e 73 6c 61 74 |" . .. "|Translat|
|00002940| 6f 72 5f 4d 69 72 72 6f | 72 59 22 3a f4 20 4d 69 |or_Mirro|rY":. Mi|
|00002950| 72 72 6f 72 20 73 70 72 | 69 74 65 0d 07 4e 21 20 |rror spr|ite..N! |
|00002960| 20 20 20 f2 68 6f 75 72 | 5f 6f 66 66 3a f4 20 48 | .hour|_off:. H|
|00002970| 6f 75 72 67 6c 61 73 73 | 20 6f 66 66 0d 07 58 34 |ourglass| off..X4|
|00002980| 20 20 20 20 f2 6e 65 77 | 5f 77 69 6e 64 6f 77 28 | .new|_window(|
|00002990| 77 69 6e 5f 69 6d 67 25 | 29 3a f4 20 46 72 65 73 |win_img%|):. Fres|
|000029a0| 68 65 6e 20 69 6d 61 67 | 65 20 77 69 6e 64 6f 77 |hen imag|e window|
|000029b0| 0d 07 62 29 20 20 20 c9 | 20 22 53 74 61 74 75 73 |..b) .| "Status|
|000029c0| 22 20 3a 20 f4 20 4d 61 | 6e 69 70 75 6c 61 74 65 |" : . Ma|nipulate|
|000029d0| 20 64 65 66 61 75 6c 74 | 73 0d 07 6c 15 20 20 20 | default|s..l. |
|000029e0| 20 c8 8e 20 73 65 6c 65 | 63 74 32 24 20 ca 0d 07 | .. sele|ct2$ ...|
|000029f0| 76 d1 20 20 20 20 20 c9 | 20 22 53 61 76 65 22 20 |v. .| "Save" |
|00002a00| 3a 20 53 74 61 74 75 73 | 3d ae 28 22 3c 54 72 61 |: Status|=.("<Tra|
|00002a10| 6e 73 6c 61 74 6f 72 24 | 44 69 72 3e 2e 53 74 61 |nslator$|Dir>.Sta|
|00002a20| 74 75 73 22 29 3a f1 23 | 53 74 61 74 75 73 2c 41 |tus"):.#|Status,A|
|00002a30| 75 74 6f 4d 6f 64 65 2c | 41 75 74 6f 50 61 6c 2c |utoMode,|AutoPal,|
|00002a40| 4d 6f 64 65 53 65 74 2c | 45 72 72 53 70 72 65 61 |ModeSet,|ErrSprea|
|00002a50| 64 2c 50 61 6c 6f 6e 6f | 66 66 2c 55 73 65 72 4d |d,Palono|ff,UserM|
|00002a60| 6f 64 65 53 65 74 25 28 | 31 29 2c 55 73 65 72 4d |odeSet%(|1),UserM|
|00002a70| 6f 64 65 53 65 74 25 28 | 32 29 2c 55 73 65 72 4d |odeSet%(|2),UserM|
|00002a80| 6f 64 65 53 65 74 25 28 | 33 29 2c 55 73 65 72 4d |odeSet%(|3),UserM|
|00002a90| 6f 64 65 53 65 74 25 28 | 34 29 2c 41 75 74 6f 5a |odeSet%(|4),AutoZ|
|00002aa0| 6f 6f 6d 2c 42 6c 61 63 | 6b 57 68 69 74 65 2c 47 |oom,Blac|kWhite,G|
|00002ab0| 49 46 53 63 61 6e 3a d9 | 23 53 74 61 74 75 73 0d |IFScan:.|#Status.|
|00002ac0| 07 80 64 20 20 20 20 20 | c9 20 22 4c 6f 61 64 22 |..d |. "Load"|
|00002ad0| 20 3a 20 e7 a4 6c 6f 61 | 64 5f 73 74 61 74 75 73 | : ..loa|d_status|
|00002ae0| 20 8b 20 f2 65 72 72 6f | 72 28 2d 31 2c 22 49 20 | . .erro|r(-1,"I |
|00002af0| 63 61 6e 6e 6f 74 20 66 | 69 6e 64 20 6d 79 20 73 |cannot f|ind my s|
|00002b00| 74 61 74 75 73 20 66 69 | 6c 65 20 21 20 48 61 76 |tatus fi|le ! Hav|
|00002b10| 65 20 79 6f 75 20 73 61 | 76 65 64 20 6f 6e 65 20 |e you sa|ved one |
|00002b20| 3f 22 29 0d 07 8a 40 20 | 20 20 20 20 c9 20 22 4b |?")...@ | . "K|
|00002b30| 69 6c 6c 22 20 3a 20 c8 | 99 20 22 4f 53 5f 43 4c |ill" : .|. "OS_CL|
|00002b40| 49 22 2c 22 52 65 6d 6f | 76 65 20 3c 54 72 61 6e |I","Remo|ve <Tran|
|00002b50| 73 6c 61 74 6f 72 24 44 | 69 72 3e 2e 53 74 61 74 |slator$D|ir>.Stat|
|00002b60| 75 73 22 0d 07 94 09 20 | 20 20 20 cb 0d 07 9e 07 |us".... | .....|
|00002b70| 20 20 cb 0d 07 a8 2a 20 | 20 c8 99 20 57 47 65 74 | ....* | .. WGet|
|00002b80| 50 49 25 2c 2c 62 6c 6f | 63 6b 3a f4 20 47 65 74 |PI%,,blo|ck:. Get|
|00002b90| 20 70 6f 69 6e 74 65 72 | 20 69 6e 66 6f 0d 07 b2 | pointer| info...|
|00002ba0| 18 20 20 e7 28 28 62 6c | 6f 63 6b 21 38 29 80 31 |. .((bl|ock!8).1|
|00002bb0| 29 3e 30 20 8c 0d 07 bc | 29 20 20 20 f4 20 41 64 |)>0 ....|) . Ad|
|00002bc0| 6a 75 73 74 20 63 6c 69 | 63 6b 2c 20 72 65 2d 77 |just cli|ck, re-w|
|00002bd0| 72 69 74 65 20 6d 65 6e | 75 20 74 72 65 65 0d 07 |rite men|u tree..|
|00002be0| c6 2c 20 20 20 f2 73 75 | 62 6d 65 6e 75 28 43 75 |., .su|bmenu(Cu|
|00002bf0| 72 72 53 75 62 24 2c a3 | 29 3a f2 6f 70 74 69 6f |rrSub$,.|):.optio|
|00002c00| 6e 73 5f 6d 65 6e 75 28 | b9 29 0d 07 d0 07 20 20 |ns_menu(|.).... |
|00002c10| cd 0d 07 da 05 20 0d 07 | e4 22 20 c9 20 31 37 2c |..... ..|." . 17,|
|00002c20| 31 38 20 3a 20 f4 20 4d | 65 73 73 61 67 65 20 66 |18 : . M|essage f|
|00002c30| 72 6f 6d 20 57 49 4d 50 | 0d 07 ee 2f 20 20 f4 20 |rom WIMP|.../ . |
|00002c40| 49 67 6e 6f 72 65 20 6d | 65 73 73 61 67 65 73 20 |Ignore m|essages |
|00002c50| 6f 72 69 67 69 6e 61 74 | 69 6e 67 20 66 72 6f 6d |originat|ing from|
|00002c60| 20 6d 79 73 65 6c 66 0d | 07 f8 38 20 20 e7 28 70 | myself.|..8 .(p|
|00002c70| 6f 6c 6c 21 34 29 3d 54 | 61 73 6b 48 61 6e 64 6c |oll!4)=T|askHandl|
|00002c80| 65 25 20 8c 20 6d 73 67 | 6e 72 25 3d 2d 31 20 8b |e% . msg|nr%=-1 .|
|00002c90| 20 6d 73 67 6e 72 25 3d | 70 6f 6c 6c 21 31 36 0d | msgnr%=|poll!16.|
|00002ca0| 08 02 11 20 20 c8 8e 20 | 6d 73 67 6e 72 25 20 ca |... .. |msgnr% .|
|00002cb0| 0d 08 0c 1b 20 20 20 c9 | 20 2d 31 20 3a 20 f4 20 |.... .| -1 : . |
|00002cc0| 44 6f 6e 27 74 20 72 65 | 61 63 74 0d 08 16 2d 20 |Don't re|act...- |
|00002cd0| 20 20 c9 20 30 20 3a 20 | f2 64 69 65 3a f4 20 52 | . 0 : |.die:. R|
|00002ce0| 65 71 75 65 73 74 20 74 | 6f 20 74 65 72 6d 69 6e |equest t|o termin|
|00002cf0| 61 74 65 20 74 61 73 6b | 0d 08 20 30 20 20 20 c9 |ate task|.. 0 .|
|00002d00| 20 31 20 3a 20 f4 20 44 | 61 74 61 53 61 76 65 2c | 1 : . D|ataSave,|
|00002d10| 20 74 72 61 6e 73 66 65 | 72 20 76 69 61 20 73 63 | transfe|r via sc|
|00002d20| 72 61 70 20 66 69 6c 65 | 0d 08 2a 39 20 20 20 20 |rap file|..*9 |
|00002d30| 73 63 72 61 70 24 3d a4 | 4f 53 76 61 72 28 22 57 |scrap$=.|OSvar("W|
|00002d40| 69 6d 70 24 53 63 72 61 | 70 22 29 3a f4 20 52 65 |imp$Scra|p"):. Re|
|00002d50| 61 64 20 73 63 72 61 70 | 20 66 69 6c 65 6e 61 6d |ad scrap| filenam|
|00002d60| 65 0d 08 34 d4 20 20 20 | 20 e7 73 63 72 61 70 24 |e..4. | .scrap$|
|00002d70| 3c 3e 22 22 20 8c 20 70 | 6f 6c 6c 21 31 32 3d 70 |<>"" . p|oll!12=p|
|00002d80| 6f 6c 6c 21 38 3a 70 6f | 6c 6c 21 31 36 3d 32 3a |oll!8:po|ll!16=2:|
|00002d90| 70 6f 6c 6c 21 33 36 3d | 2d 31 3a 24 28 70 6f 6c |poll!36=|-1:$(pol|
|00002da0| 6c 2b 34 34 29 3d 73 63 | 72 61 70 24 2b bd 30 3a |l+44)=sc|rap$+.0:|
|00002db0| 70 6f 6c 6c 21 30 3d 34 | 34 2b 28 a9 73 63 72 61 |poll!0=4|4+(.scra|
|00002dc0| 70 24 2b 31 2b 33 29 80 | ac 33 3a c8 99 20 57 53 |p$+1+3).|.3:.. WS|
|00002dd0| 65 6e 64 4d 73 67 25 2c | 31 38 2c 70 6f 6c 6c 2c |endMsg%,|18,poll,|
|00002de0| 70 6f 6c 6c 21 34 20 8b | 20 f2 65 72 72 6f 72 28 |poll!4 .| .error(|
|00002df0| 2d 31 2c 22 57 69 6d 70 | 24 53 63 72 61 70 20 6e |-1,"Wimp|$Scrap n|
|00002e00| 6f 74 20 64 65 66 69 6e | 65 64 22 29 3a f4 20 53 |ot defin|ed"):. S|
|00002e10| 65 6e 64 20 44 61 74 61 | 53 61 76 65 41 63 6b 20 |end Data|SaveAck |
|00002e20| 69 66 20 73 63 72 61 70 | 20 66 69 6c 65 20 64 65 |if scrap| file de|
|00002e30| 66 69 6e 65 64 0d 08 3e | 25 20 20 20 c9 20 32 20 |fined..>|% . 2 |
|00002e40| 3a 20 f4 20 44 61 74 61 | 53 61 76 65 41 63 6b 2c |: . Data|SaveAck,|
|00002e50| 20 73 61 76 65 20 66 69 | 6c 65 0d 08 48 3e 20 20 | save fi|le..H> |
|00002e60| 20 20 e7 70 6f 6c 6c 21 | 31 32 3d 44 61 74 61 53 | .poll!|12=DataS|
|00002e70| 61 76 65 52 65 66 25 20 | 8c 20 f2 73 61 76 65 28 |aveRef% |. .save(|
|00002e80| a4 73 74 72 69 6e 67 28 | 70 6f 6c 6c 2b 34 34 29 |.string(|poll+44)|
|00002e90| 29 3a f4 20 53 61 76 65 | 0d 08 52 30 20 20 20 c9 |):. Save|..R0 .|
|00002ea0| 20 33 2c 35 20 3a 20 f4 | 20 44 61 74 61 4c 6f 61 | 3,5 : .| DataLoa|
|00002eb0| 64 2f 4f 70 65 6e 20 3a | 20 61 74 74 65 6d 70 74 |d/Open :| attempt|
|00002ec0| 20 74 6f 20 6c 6f 61 64 | 0d 08 5c 20 20 20 20 20 | to load|..\ |
|00002ed0| 74 79 70 65 25 3d 70 6f | 6c 6c 21 34 30 3a f4 20 |type%=po|ll!40:. |
|00002ee0| 46 69 6c 65 74 79 70 65 | 0d 08 66 29 20 20 20 20 |Filetype|..f) |
|00002ef0| 6e 61 6d 65 24 3d a4 73 | 74 72 69 6e 67 28 70 6f |name$=.s|tring(po|
|00002f00| 6c 6c 2b 34 34 29 3a f4 | 20 46 69 6c 65 6e 61 6d |ll+44):.| Filenam|
|00002f10| 65 0d 08 70 12 20 20 20 | 20 c8 8e 20 74 79 70 65 |e..p. | .. type|
|00002f20| 25 20 ca 0d 08 7a 3d 20 | 20 20 20 20 c9 20 26 36 |% ...z= | . &6|
|00002f30| 39 31 2c 26 36 39 32 2c | 26 36 39 33 2c 26 36 39 |91,&692,|&693,&69|
|00002f40| 34 2c 26 36 39 35 2c 26 | 36 39 36 20 3a 20 f2 6c |4,&695,&|696 : .l|
|00002f50| 6f 61 64 28 74 79 70 65 | 25 2c 6e 61 6d 65 24 29 |oad(type|%,name$)|
|00002f60| 0d 08 84 44 20 20 20 20 | 20 c9 20 26 46 46 39 2c |...D | . &FF9,|
|00002f70| 26 44 45 32 2c 26 44 46 | 41 2c 26 44 35 38 2c 26 |&DE2,&DF|A,&D58,&|
|00002f80| 30 30 34 20 3a 20 e7 6d | 73 67 6e 72 25 3d 33 20 |004 : .m|sgnr%=3 |
|00002f90| 8c 20 f2 6c 6f 61 64 28 | 74 79 70 65 25 2c 6e 61 |. .load(|type%,na|
|00002fa0| 6d 65 24 29 0d 08 8e 42 | 20 20 20 20 7f 20 3a 20 |me$)...B| . : |
|00002fb0| f4 20 46 69 6c 65 74 79 | 70 65 20 6e 6f 74 20 72 |. Filety|pe not r|
|00002fc0| 65 63 6f 67 6e 69 7a 65 | 64 2c 20 6c 6f 6f 6b 20 |ecognize|d, look |
|00002fd0| 61 74 20 63 6f 6e 74 65 | 6e 74 73 20 69 66 20 64 |at conte|nts if d|
|00002fe0| 72 61 67 67 65 64 0d 08 | 98 14 20 20 20 20 20 e7 |ragged..|.. .|
|00002ff0| 6d 73 67 6e 72 25 3d 33 | 20 8c 0d 08 a2 3f 20 20 |msgnr%=3| ....? |
|00003000| 20 20 20 20 46 69 6c 65 | 3d 8e 28 6e 61 6d 65 24 | File|=.(name$|
|00003010| 29 3a 69 54 79 70 65 25 | 3d 30 3a 69 64 24 3d a4 |):iType%|=0:id$=.|
|00003020| 69 73 74 72 69 6e 67 28 | 31 32 29 3a d9 23 46 69 |istring(|12):.#Fi|
|00003030| 6c 65 3a f4 20 48 65 61 | 64 0d 08 ac 93 20 20 20 |le:. Hea|d.... |
|00003040| 20 20 20 e7 c0 69 64 24 | 2c 36 29 3d 22 47 49 46 | ..id$|,6)="GIF|
|00003050| 38 37 61 22 20 8c 20 74 | 79 70 65 25 3d 26 36 39 |87a" . t|ype%=&69|
|00003060| 35 20 8b 20 e7 28 c0 69 | 64 24 2c 34 29 3d 22 46 |5 . .(.i|d$,4)="F|
|00003070| 4f 52 4d 22 29 20 80 20 | 28 c2 69 64 24 2c 34 29 |ORM") . |(.id$,4)|
|00003080| 3d 22 49 4c 42 4d 22 29 | 20 8c 20 74 79 70 65 25 |="ILBM")| . type%|
|00003090| 3d 26 36 39 33 20 8b 20 | e7 c0 69 64 24 2c 34 29 |=&693 . |..id$,4)|
|000030a0| 3d bd 26 35 39 2b bd 26 | 41 36 2b bd 26 36 41 2b |=.&59+.&|A6+.&6A+|
|000030b0| bd 26 39 35 20 8c 20 74 | 79 70 65 25 3d 26 36 39 |.&95 . t|ype%=&69|
|000030c0| 36 20 8b 20 74 79 70 65 | 25 3d 2d 31 0d 08 b6 bf |6 . type|%=-1....|
|000030d0| 20 20 20 20 20 20 e7 74 | 79 70 65 25 3e 30 20 8c | .t|ype%>0 .|
|000030e0| 20 c8 99 20 22 4f 53 5f | 43 4c 49 22 2c 22 53 65 | .. "OS_|CLI","Se|
|000030f0| 74 54 79 70 65 20 22 2b | 6e 61 6d 65 24 2b 22 20 |tType "+|name$+" |
|00003100| 22 2b c3 7e 28 74 79 70 | 65 25 29 3a f2 6c 6f 61 |"+.~(typ|e%):.loa|
|00003110| 64 28 74 79 70 65 25 2c | 6e 61 6d 65 24 29 20 8b |d(type%,|name$) .|
|00003120| 20 f2 65 72 72 6f 72 28 | 2d 31 2c 22 49 20 64 6f | .error(|-1,"I do|
|00003130| 6e 27 74 20 72 65 63 6f | 67 6e 69 7a 65 20 74 68 |n't reco|gnize th|
|00003140| 69 73 20 66 69 6c 65 2e | 20 50 6c 65 61 73 65 20 |is file.| Please |
|00003150| 66 69 6c 65 74 79 70 65 | 20 69 74 20 61 70 70 72 |filetype| it appr|
|00003160| 6f 70 69 61 74 65 6c 79 | 2e 22 29 3a f4 20 46 69 |opiately|."):. Fi|
|00003170| 6c 65 74 79 70 65 20 61 | 6e 64 20 6c 6f 61 64 20 |letype a|nd load |
|00003180| 6f 72 20 63 6f 6d 70 6c | 61 69 6e 0d 08 c0 0a 20 |or compl|ain.... |
|00003190| 20 20 20 20 cd 0d 08 ca | 09 20 20 20 20 cb 0d 08 | ....|. ...|
|000031a0| d4 2b 20 20 20 c9 20 34 | 20 3a 20 f4 20 44 61 74 |.+ . 4| : . Dat|
|000031b0| 61 4c 6f 61 64 41 63 6b | 2c 20 63 68 65 63 6b 20 |aLoadAck|, check |
|000031c0| 6f 72 20 69 67 6e 6f 72 | 65 0d 08 de 3e 20 20 20 |or ignor|e...> |
|000031d0| 20 e7 44 61 74 61 4c 6f | 61 64 52 65 66 25 20 8c | .DataLo|adRef% .|
|000031e0| 20 e7 70 6f 6c 6c 21 31 | 32 3d 44 61 74 61 4c 6f | .poll!1|2=DataLo|
|000031f0| 61 64 52 65 66 25 20 8c | 20 44 61 74 61 4c 6f 61 |adRef% .| DataLoa|
|00003200| 64 52 65 66 25 3d a3 0d | 08 e8 23 20 20 20 c9 20 |dRef%=..|..# . |
|00003210| 26 34 30 30 43 30 20 3a | 20 f4 20 53 75 62 6d 65 |&400C0 :| . Subme|
|00003220| 6e 75 20 77 61 72 6e 69 | 6e 67 0d 08 f2 49 20 20 |nu warni|ng...I |
|00003230| 20 20 70 6f 69 6e 74 65 | 72 25 3d 70 6f 6c 6c 21 | pointe|r%=poll!|
|00003240| 32 30 3a 78 25 3d 70 6f | 6c 6c 21 32 34 3a 79 25 |20:x%=po|ll!24:y%|
|00003250| 3d 70 6f 6c 6c 21 32 38 | 3a f4 20 47 65 74 20 70 |=poll!28|:. Get p|
|00003260| 6f 69 6e 74 65 72 2f 70 | 72 6f 70 6f 73 65 64 20 |ointer/p|roposed |
|00003270| 78 2f 79 0d 08 fc 3f 20 | 20 20 20 c8 99 20 57 44 |x/y...? | .. WD|
|00003280| 65 63 6f 64 65 4d 25 2c | 2c 6d 65 6e 75 31 2c 70 |ecodeM%,|,menu1,p|
|00003290| 6f 6c 6c 2b 33 32 2c c4 | 31 30 30 2c 22 20 22 29 |oll+32,.|100," ")|
|000032a0| 20 b8 20 2c 2c 2c 72 6f | 6f 74 24 3a f4 20 52 6f | . ,,,ro|ot$:. Ro|
|000032b0| 6f 74 0d 09 06 12 20 20 | 20 20 c8 8e 20 72 6f 6f |ot.... | .. roo|
|000032c0| 74 24 20 ca 0d 09 10 7c | 20 20 20 20 20 c9 20 22 |t$ ....|| . "|
|000032d0| 53 61 76 65 20 69 6d 61 | 67 65 22 2c 22 49 6d 61 |Save ima|ge","Ima|
|000032e0| 67 65 20 6e 75 6d 62 65 | 72 22 2c 22 4d 6f 64 65 |ge numbe|r","Mode|
|000032f0| 20 73 65 74 22 2c 22 5a | 6f 6f 6d 20 69 6e 22 2c | set","Z|oom in",|
|00003300| 22 5a 6f 6f 6d 20 6f 75 | 74 22 2c 22 4d 69 72 72 |"Zoom ou|t","Mirr|
|00003310| 6f 72 20 69 6d 61 67 65 | 22 2c 22 53 74 61 74 75 |or image|","Statu|
|00003320| 73 22 2c 22 50 61 6c 65 | 74 74 65 22 20 3a 20 f2 |s","Pale|tte" : .|
|00003330| 73 75 62 6d 65 6e 75 28 | 72 6f 6f 74 24 2c b9 29 |submenu(|root$,.)|
|00003340| 0d 09 1a 3e 20 20 20 20 | 20 7f 20 c8 99 20 57 43 |...> | . .. WC|
|00003350| 72 65 61 74 65 53 4d 25 | 2c 2c 70 6f 69 6e 74 65 |reateSM%|,,pointe|
|00003360| 72 25 2c 78 25 2c 79 25 | 3a f4 20 4f 70 65 6e 20 |r%,x%,y%|:. Open |
|00003370| 73 75 62 6d 65 6e 75 2f | 77 69 6e 64 6f 77 0d 09 |submenu/|window..|
|00003380| 24 09 20 20 20 20 cb 0d | 09 2e 42 20 20 20 c9 20 |$. ..|..B . |
|00003390| 26 34 30 30 43 31 20 3a | 20 f4 20 4d 6f 64 65 20 |&400C1 :| . Mode |
|000033a0| 68 61 73 20 63 68 61 6e | 67 65 64 20 28 61 6e 64 |has chan|ged (and|
|000033b0| 20 69 74 20 6d 61 79 20 | 6e 6f 74 20 68 61 76 65 | it may |not have|
|000033c0| 20 62 65 65 6e 20 6d 65 | 29 0d 09 38 22 20 20 20 | been me|)..8" |
|000033d0| 20 f2 6d 6f 64 65 5f 63 | 68 61 6e 67 65 28 2d 31 | .mode_c|hange(-1|
|000033e0| 29 3a f4 20 54 69 64 79 | 20 75 70 0d 09 42 07 20 |):. Tidy| up..B. |
|000033f0| 20 cb 0d 09 4c 05 cb 0d | 09 56 07 fd 20 a3 0d 09 | ...L...|.V.. ...|
|00003400| 60 05 20 0d 09 6a 17 dd | f2 6c 6f 61 64 28 74 79 |`. ..j..|.load(ty|
|00003410| 70 65 25 2c 6e 61 6d 65 | 24 29 0d 09 74 16 f4 20 |pe%,name|$)..t.. |
|00003420| 4c 6f 61 64 73 20 69 6d | 61 67 65 20 66 69 6c 65 |Loads im|age file|
|00003430| 0d 09 7e 4b 70 6f 6c 6c | 21 31 32 3d 70 6f 6c 6c |..~Kpoll|!12=poll|
|00003440| 21 38 3a 70 6f 6c 6c 21 | 31 36 3d 34 3a c8 99 20 |!8:poll!|16=4:.. |
|00003450| 57 53 65 6e 64 4d 73 67 | 25 2c 31 37 2c 70 6f 6c |WSendMsg|%,17,pol|
|00003460| 6c 2c 70 6f 6c 6c 21 34 | 3a f4 20 53 65 6e 64 20 |l,poll!4|:. Send |
|00003470| 44 61 74 61 4c 6f 61 64 | 41 63 6b 0d 09 88 1a 4c |DataLoad|Ack....L|
|00003480| 6f 61 64 24 3d 6e 61 6d | 65 24 3a f4 20 46 69 6c |oad$=nam|e$:. Fil|
|00003490| 65 6e 61 6d 65 0d 09 92 | 7b 70 6f 73 25 3d a9 4c |ename...|{pos%=.L|
|000034a0| 6f 61 64 24 3a f5 20 70 | 6f 73 25 2d 3d 31 3a 70 |oad$:. p|os%-=1:p|
|000034b0| 65 72 69 6f 64 3d 28 c1 | 4c 6f 61 64 24 2c 70 6f |eriod=(.|Load$,po|
|000034c0| 73 25 2c 31 29 3d 22 2e | 22 29 3a fd 20 28 70 6f |s%,1)=".|"):. (po|
|000034d0| 73 25 3d 31 29 20 84 20 | 70 65 72 69 6f 64 3a e7 |s%=1) . |period:.|
|000034e0| 70 65 72 69 6f 64 20 8c | 20 4c 65 61 66 24 3d c2 |period .| Leaf$=.|
|000034f0| 4c 6f 61 64 24 2c a9 4c | 6f 61 64 24 2d 70 6f 73 |Load$,.L|oad$-pos|
|00003500| 25 29 20 8b 20 4c 65 61 | 66 24 3d 4c 6f 61 64 24 |%) . Lea|f$=Load$|
|00003510| 0d 09 9c 35 c8 99 20 22 | 4f 53 5f 46 69 6c 65 22 |...5.. "|OS_File"|
|00003520| 2c 31 37 2c 4c 6f 61 64 | 24 20 b8 20 2c 2c 2c 2c |,17,Load|$ . ,,,,|
|00003530| 46 6c 65 6e 25 3a f4 20 | 46 69 6c 65 27 73 20 6c |Flen%:. |File's l|
|00003540| 65 6e 67 74 68 0d 09 a6 | 1d 46 69 6c 65 3d 8e 28 |ength...|.File=.(|
|00003550| 4c 6f 61 64 24 29 3a f4 | 20 4f 70 65 6e 20 66 69 |Load$):.| Open fi|
|00003560| 6c 65 0d 09 b0 2a e7 46 | 69 6c 65 3c 3e 30 20 8c |le...*.F|ile<>0 .|
|00003570| 20 46 69 6c 65 4f 70 65 | 6e 3d b9 3a f4 20 53 68 | FileOpe|n=.:. Sh|
|00003580| 6f 75 6c 64 20 62 65 20 | 6f 70 65 6e 0d 09 ba 36 |ould be |open...6|
|00003590| f2 76 61 72 28 22 66 68 | 61 6e 22 2c 46 69 6c 65 |.var("fh|an",File|
|000035a0| 29 3a f2 76 61 72 28 22 | 66 70 74 72 22 2c 30 29 |):.var("|fptr",0)|
|000035b0| 3a f4 20 52 45 4d 20 4d | 6f 64 75 6c 65 20 69 6e |:. REM M|odule in|
|000035c0| 66 6f 0d 09 c4 1b f2 68 | 6f 75 72 5f 6f 6e 3a f4 |fo.....h|our_on:.|
|000035d0| 20 48 6f 75 72 67 6c 61 | 73 73 20 6f 6e 0d 09 ce | Hourgla|ss on...|
|000035e0| 3f e7 77 69 6e 5f 69 6d | 67 25 3e 30 20 8c 20 f2 |?.win_im|g%>0 . .|
|000035f0| 63 6c 6f 73 65 5f 77 69 | 6e 64 6f 77 28 77 69 6e |close_wi|ndow(win|
|00003600| 5f 69 6d 67 25 29 3a f4 | 20 4f 6c 64 20 69 6d 61 |_img%):.| Old ima|
|00003610| 67 65 20 64 69 73 63 61 | 72 64 65 64 0d 09 d8 19 |ge disca|rded....|
|00003620| 49 6d 67 3d a3 3a f4 20 | 49 6d 61 67 65 20 69 6e |Img=.:. |Image in|
|00003630| 76 61 6c 69 64 0d 09 e2 | 0e c8 8e 20 74 79 70 65 |valid...|... type|
|00003640| 25 20 ca 0d 09 ec 19 20 | c9 20 26 46 46 39 20 3a |% ..... |. &FF9 :|
|00003650| 20 4f 6b 3d a4 70 69 63 | 5f 41 52 43 0d 09 f6 1c | Ok=.pic|_ARC....|
|00003660| 20 c9 20 26 44 45 32 20 | 3a 20 4f 6b 3d a4 70 69 | . &DE2 |: Ok=.pi|
|00003670| 63 5f 50 52 4f 41 52 54 | 0d 0a 00 1d 20 c9 20 26 |c_PROART|.... . &|
|00003680| 44 46 41 20 3a 20 4f 6b | 3d a4 70 69 63 5f 57 41 |DFA : Ok|=.pic_WA|
|00003690| 54 46 4f 52 44 0d 0a 0a | 1c 20 c9 20 26 44 35 38 |TFORD...|. . &D58|
|000036a0| 20 3a 20 4f 6b 3d a4 70 | 69 63 5f 52 45 4e 44 45 | : Ok=.p|ic_RENDE|
|000036b0| 52 0d 0a 14 19 20 c9 20 | 26 30 30 34 20 3a 20 4f |R.... . |&004 : O|
|000036c0| 6b 3d a4 70 69 63 5f 41 | 49 4d 0d 0a 1e 1b 20 c9 |k=.pic_A|IM.... .|
|000036d0| 20 26 36 39 31 20 3a 20 | 4f 6b 3d a4 70 69 63 5f | &691 : |Ok=.pic_|
|000036e0| 44 45 47 41 53 0d 0a 28 | 19 20 c9 20 26 36 39 32 |DEGAS..(|. . &692|
|000036f0| 20 3a 20 4f 6b 3d a4 70 | 69 63 5f 49 4d 47 0d 0a | : Ok=.p|ic_IMG..|
|00003700| 32 19 20 c9 20 26 36 39 | 33 20 3a 20 4f 6b 3d a4 |2. . &69|3 : Ok=.|
|00003710| 70 69 63 5f 49 46 46 0d | 0a 3c 19 20 c9 20 26 36 |pic_IFF.|.<. . &6|
|00003720| 39 34 20 3a 20 4f 6b 3d | a4 70 69 63 5f 4d 41 43 |94 : Ok=|.pic_MAC|
|00003730| 0d 0a 46 19 20 c9 20 26 | 36 39 35 20 3a 20 4f 6b |..F. . &|695 : Ok|
|00003740| 3d a4 70 69 63 5f 47 49 | 46 0d 0a 50 19 20 c9 20 |=.pic_GI|F..P. . |
|00003750| 26 36 39 36 20 3a 20 4f | 6b 3d a4 70 69 63 5f 53 |&696 : O|k=.pic_S|
|00003760| 55 4e 0d 0a 5a 05 cb 0d | 0a 64 24 49 6d 67 3d 4f |UN..Z...|.d$Img=O|
|00003770| 6b 3a f4 20 49 6d 61 67 | 65 20 6f 6b 20 69 66 20 |k:. Imag|e ok if |
|00003780| 61 6c 6c 20 69 73 20 77 | 65 6c 6c 0d 0a 6e 1d f2 |all is w|ell..n..|
|00003790| 68 6f 75 72 5f 6f 66 66 | 3a f4 20 48 6f 75 72 67 |hour_off|:. Hourg|
|000037a0| 6c 61 73 73 20 6f 66 66 | 0d 0a 78 2e e7 46 69 6c |lass off|..x..Fil|
|000037b0| 65 4f 70 65 6e 20 8c 20 | d9 23 46 69 6c 65 3a 46 |eOpen . |.#File:F|
|000037c0| 69 6c 65 4f 70 65 6e 3d | a3 3a f4 20 43 6c 6f 73 |ileOpen=|.:. Clos|
|000037d0| 65 20 66 69 6c 65 0d 0a | 82 0a e7 49 6d 67 20 8c |e file..|...Img .|
|000037e0| 0d 0a 8c 2c 20 f2 73 65 | 74 5f 6d 6f 64 65 28 49 |..., .se|t_mode(I|
|000037f0| 6d 67 4d 6f 64 65 25 29 | 3a f4 20 53 65 6c 65 63 |mgMode%)|:. Selec|
|00003800| 74 20 69 6d 61 67 65 20 | 6d 6f 64 65 0d 0a 96 29 |t image |mode...)|
|00003810| 20 5a 6f 6f 6d 58 3d 31 | 3a 5a 6f 6f 6d 59 3d 31 | ZoomX=1|:ZoomY=1|
|00003820| 3a f4 20 52 65 73 65 74 | 20 7a 6f 6f 6d 20 66 61 |:. Reset| zoom fa|
|00003830| 63 74 6f 72 73 0d 0a a0 | 39 20 e7 41 75 74 6f 50 |ctors...|9 .AutoP|
|00003840| 61 6c 20 8c 20 f2 73 65 | 74 5f 70 61 6c 65 74 74 |al . .se|t_palett|
|00003850| 65 28 31 29 3a f4 20 53 | 65 74 20 69 6d 61 67 65 |e(1):. S|et image|
|00003860| 27 73 20 6f 77 6e 20 70 | 61 6c 65 74 74 65 0d 0a |'s own p|alette..|
|00003870| aa 2d 20 f2 6e 65 77 5f | 69 6d 61 67 65 5f 77 69 |.- .new_|image_wi|
|00003880| 6e 64 6f 77 3a f4 20 4f | 70 65 6e 20 77 69 6e 64 |ndow:. O|pen wind|
|00003890| 6f 77 20 6f 6e 20 69 6d | 61 67 65 0d 0a b4 05 cd |ow on im|age.....|
|000038a0| 0d 0a be 05 e1 0d 0a c8 | 04 0d 0a d2 11 dd f2 73 |........|.......s|
|000038b0| 61 76 65 28 6e 61 6d 65 | 24 29 0d 0a dc 17 f4 20 |ave(name|$)..... |
|000038c0| 53 61 76 65 73 20 73 70 | 72 69 74 65 20 66 69 6c |Saves sp|rite fil|
|000038d0| 65 0d 0a e6 1a 53 61 76 | 65 24 3d 6e 61 6d 65 24 |e....Sav|e$=name$|
|000038e0| 3a f4 20 46 69 6c 65 6e | 61 6d 65 0d 0a f0 13 c8 |:. Filen|ame.....|
|000038f0| 8e 20 53 61 76 65 5f 6b | 69 6e 64 24 20 ca 0d 0a |. Save_k|ind$ ...|
|00003900| fa 31 20 c9 20 22 46 75 | 6c 6c 22 20 3a 20 f4 20 |.1 . "Fu|ll" : . |
|00003910| 46 75 6c 6c 20 72 65 73 | 6f 6c 75 74 69 6f 6e 20 |Full res|olution |
|00003920| 73 70 72 69 74 65 2c 20 | 6e 6f 20 65 64 69 74 0d |sprite, |no edit.|
|00003930| 0b 04 20 20 c9 20 22 57 | 68 6f 6c 65 22 20 3a 20 |.. . "W|hole" : |
|00003940| f2 65 64 69 74 5f 70 61 | 72 74 28 a3 2c a3 29 0d |.edit_pa|rt(.,.).|
|00003950| 0b 0e 29 20 c9 20 22 57 | 68 6f 6c 65 20 28 73 63 |..) . "W|hole (sc|
|00003960| 61 6c 65 64 29 22 20 3a | 20 f2 65 64 69 74 5f 70 |aled)" :| .edit_p|
|00003970| 61 72 74 28 b9 2c a3 29 | 0d 0b 18 1f 20 c9 20 22 |art(.,.)|.... . "|
|00003980| 50 61 72 74 22 20 3a 20 | f2 65 64 69 74 5f 70 61 |Part" : |.edit_pa|
|00003990| 72 74 28 a3 2c b9 29 0d | 0b 22 28 20 c9 20 22 50 |rt(.,.).|."( . "P|
|000039a0| 61 72 74 20 28 73 63 61 | 6c 65 64 29 22 20 3a 20 |art (sca|led)" : |
|000039b0| f2 65 64 69 74 5f 70 61 | 72 74 28 b9 2c b9 29 0d |.edit_pa|rt(.,.).|
|000039c0| 0b 2c 05 cb 0d 0b 36 1b | f2 68 6f 75 72 5f 6f 6e |.,....6.|.hour_on|
|000039d0| 3a f4 20 48 6f 75 72 67 | 6c 61 73 73 20 6f 6e 0d |:. Hourg|lass on.|
|000039e0| 0b 40 18 e7 53 61 76 65 | 5f 6b 69 6e 64 24 3d 22 |.@..Save|_kind$="|
|000039f0| 46 75 6c 6c 22 20 8c 0d | 0b 4a 38 20 f4 20 46 75 |Full" ..|.J8 . Fu|
|00003a00| 6c 6c 20 73 70 72 69 74 | 65 2c 20 73 61 76 65 20 |ll sprit|e, save |
|00003a10| 69 6d 61 67 65 20 77 69 | 74 68 20 70 61 6c 65 74 |image wi|th palet|
|00003a20| 74 65 20 28 6f 70 74 69 | 6f 6e 61 6c 6c 79 29 0d |te (opti|onally).|
|00003a30| 0b 54 24 20 4f 75 74 3d | ae 28 53 61 76 65 24 29 |.T$ Out=|.(Save$)|
|00003a40| 3a f4 20 4f 70 65 6e 20 | 6f 75 74 70 75 74 20 66 |:. Open |output f|
|00003a50| 69 6c 65 0d 0b 5e 2d 20 | 73 70 72 25 3d 53 70 72 |ile..^- |spr%=Spr|
|00003a60| 69 74 65 25 2b 53 70 72 | 69 74 65 25 21 38 3a f4 |ite%+Spr|ite%!8:.|
|00003a70| 20 53 74 61 72 74 20 6f | 66 20 73 70 72 69 74 65 | Start o|f sprite|
|00003a80| 0d 0b 68 37 20 e7 50 61 | 6c 6f 6e 6f 66 66 20 80 |..h7 .Pa|lonoff .|
|00003a90| 20 28 50 61 6c 65 74 74 | 65 25 28 30 29 3c 3d 31 | (Palett|e%(0)<=1|
|00003aa0| 36 29 20 80 20 28 50 61 | 6c 65 74 74 65 25 28 30 |6) . (Pa|lette%(0|
|00003ab0| 29 3e 3d 32 29 20 8c 0d | 0b 72 22 20 20 f4 20 53 |)>=2) ..|.r" . S|
|00003ac0| 61 76 65 20 77 69 74 68 | 20 70 61 6c 65 74 74 65 |ave with| palette|
|00003ad0| 20 69 6e 63 6c 75 64 65 | 64 0d 0b 7c 32 20 20 63 | include|d..|2 c|
|00003ae0| 6f 6c 73 25 3d 50 61 6c | 65 74 74 65 25 28 30 29 |ols%=Pal|ette%(0)|
|00003af0| 3a f4 20 43 6f 6c 6f 75 | 72 73 20 69 6e 20 73 70 |:. Colou|rs in sp|
|00003b00| 72 69 74 65 27 73 20 6d | 6f 64 65 0d 0b 86 2e 20 |rite's m|ode.... |
|00003b10| 20 65 78 74 72 61 25 3d | 63 6f 6c 73 25 2a 38 3a | extra%=|cols%*8:|
|00003b20| f4 20 45 78 74 72 61 20 | 62 79 74 65 73 20 66 6f |. Extra |bytes fo|
|00003b30| 72 20 70 61 6c 65 74 74 | 65 0d 0b 90 45 20 20 c8 |r palett|e...E .|
|00003b40| 99 20 22 4f 53 5f 47 42 | 50 42 22 2c 31 2c 4f 75 |. "OS_GB|PB",1,Ou|
|00003b50| 74 2c 53 70 72 69 74 65 | 25 2b 34 2c 38 2c 30 3a |t,Sprite|%+4,8,0:|
|00003b60| f4 20 4f 75 74 70 75 74 | 20 70 61 72 74 20 6f 66 |. Output| part of|
|00003b70| 20 63 6f 6e 74 72 6f 6c | 20 62 6c 6f 63 6b 0d 0b | control| block..|
|00003b80| 9a 44 20 20 21 61 72 67 | 25 3d 65 78 74 72 61 25 |.D !arg|%=extra%|
|00003b90| 2b 53 70 72 69 74 65 25 | 21 31 32 3a c8 99 20 22 |+Sprite%|!12:.. "|
|00003ba0| 4f 53 5f 47 42 50 42 22 | 2c 32 2c 4f 75 74 2c 61 |OS_GBPB"|,2,Out,a|
|00003bb0| 72 67 25 2c 34 3a f4 20 | 4e 65 77 20 6f 66 66 73 |rg%,4:. |New offs|
|00003bc0| 65 74 0d 0b a4 3f 20 20 | 21 61 72 67 25 3d 65 78 |et...? |!arg%=ex|
|00003bd0| 74 72 61 25 2b 21 73 70 | 72 25 3a c8 99 20 22 4f |tra%+!sp|r%:.. "O|
|00003be0| 53 5f 47 42 50 42 22 2c | 32 2c 4f 75 74 2c 61 72 |S_GBPB",|2,Out,ar|
|00003bf0| 67 25 2c 34 3a f4 20 4e | 65 77 20 6f 66 66 73 65 |g%,4:. N|ew offse|
|00003c00| 74 0d 0b ae 41 20 20 c8 | 99 20 22 4f 53 5f 47 42 |t...A .|. "OS_GB|
|00003c10| 50 42 22 2c 32 2c 4f 75 | 74 2c 73 70 72 25 2b 34 |PB",2,Ou|t,spr%+4|
|00003c20| 2c 32 38 3a f4 20 4f 75 | 74 70 75 74 20 70 61 72 |,28:. Ou|tput par|
|00003c30| 74 20 6f 66 20 73 70 72 | 69 74 65 20 68 65 61 64 |t of spr|ite head|
|00003c40| 65 72 0d 0b b8 41 20 20 | 21 61 72 67 25 3d 65 78 |er...A |!arg%=ex|
|00003c50| 74 72 61 25 2b 73 70 72 | 25 21 33 32 3a c8 99 20 |tra%+spr|%!32:.. |
|00003c60| 22 4f 53 5f 47 42 50 42 | 22 2c 32 2c 4f 75 74 2c |"OS_GBPB|",2,Out,|
|00003c70| 61 72 67 25 2c 34 3a f4 | 20 4e 65 77 20 6f 66 66 |arg%,4:.| New off|
|00003c80| 73 65 74 0d 0b c2 41 20 | 20 21 61 72 67 25 3d 65 |set...A | !arg%=e|
|00003c90| 78 74 72 61 25 2b 73 70 | 72 25 21 33 36 3a c8 99 |xtra%+sp|r%!36:..|
|00003ca0| 20 22 4f 53 5f 47 42 50 | 42 22 2c 32 2c 4f 75 74 | "OS_GBP|B",2,Out|
|00003cb0| 2c 61 72 67 25 2c 34 3a | f4 20 4e 65 77 20 6f 66 |,arg%,4:|. New of|
|00003cc0| 66 73 65 74 0d 0b cc 39 | 20 20 c8 99 20 22 4f 53 |fset...9| .. "OS|
|00003cd0| 5f 47 42 50 42 22 2c 32 | 2c 4f 75 74 2c 73 70 72 |_GBPB",2|,Out,spr|
|00003ce0| 25 2b 34 30 2c 34 3a f4 | 20 4f 75 74 70 75 74 20 |%+40,4:.| Output |
|00003cf0| 73 70 72 69 74 65 27 73 | 20 6d 6f 64 65 0d 0b d6 |sprite's| mode...|
|00003d00| 8b 20 20 e3 20 63 25 3d | 31 20 b8 20 63 6f 6c 73 |. . c%=|1 . cols|
|00003d10| 25 3a 61 72 67 25 21 28 | 63 25 2a 38 2d 38 29 3d |%:arg%!(|c%*8-8)=|
|00003d20| a4 72 65 61 64 70 61 6c | 76 61 6c 28 50 61 6c 65 |.readpal|val(Pale|
|00003d30| 74 74 65 25 28 63 25 29 | 29 3a 61 72 67 25 21 28 |tte%(c%)|):arg%!(|
|00003d40| 63 25 2a 38 2d 34 29 3d | 61 72 67 25 21 28 63 25 |c%*8-4)=|arg%!(c%|
|00003d50| 2a 38 2d 38 29 3a ed 3a | c8 99 20 22 4f 53 5f 47 |*8-8):.:|.. "OS_G|
|00003d60| 42 50 42 22 2c 32 2c 4f | 75 74 2c 61 72 67 25 2c |BPB",2,O|ut,arg%,|
|00003d70| 63 6f 6c 73 25 2a 38 3a | f4 20 4f 75 74 70 75 74 |cols%*8:|. Output|
|00003d80| 20 70 61 6c 65 74 74 65 | 0d 0b e0 46 20 20 c8 99 | palette|...F ..|
|00003d90| 20 22 4f 53 5f 47 42 50 | 42 22 2c 32 2c 4f 75 74 | "OS_GBP|B",2,Out|
|00003da0| 2c 73 70 72 25 2b 73 70 | 72 25 21 33 32 2c 28 73 |,spr%+sp|r%!32,(s|
|00003db0| 70 72 25 21 31 36 2b 31 | 29 2a 28 73 70 72 25 21 |pr%!16+1|)*(spr%!|
|00003dc0| 32 30 2b 31 29 2a 34 3a | f4 20 44 61 74 61 0d 0b |20+1)*4:|. Data..|
|00003dd0| ea 29 20 cc 20 f4 20 4e | 6f 20 70 61 6c 65 74 74 |.) . . N|o palett|
|00003de0| 65 2c 20 6f 75 74 70 75 | 74 20 74 68 65 20 77 68 |e, outpu|t the wh|
|00003df0| 6f 6c 65 20 6c 6f 74 0d | 0b f4 3e 20 20 c8 99 20 |ole lot.|..> .. |
|00003e00| 22 4f 53 5f 47 42 50 42 | 22 2c 31 2c 4f 75 74 2c |"OS_GBPB|",1,Out,|
|00003e10| 53 70 72 69 74 65 25 2b | 34 2c 53 70 72 69 74 65 |Sprite%+|4,Sprite|
|00003e20| 25 21 31 32 2d 34 2c 30 | 3a f4 20 4f 75 74 70 75 |%!12-4,0|:. Outpu|
|00003e30| 74 20 61 6c 6c 0d 0b fe | 06 20 cd 0d 0c 08 40 20 |t all...|. ....@ |
|00003e40| d9 23 4f 75 74 3a c8 99 | 20 22 4f 53 5f 43 4c 49 |.#Out:..| "OS_CLI|
|00003e50| 22 2c 22 53 65 74 54 79 | 70 65 20 22 2b 53 61 76 |","SetTy|pe "+Sav|
|00003e60| 65 24 2b 22 20 53 70 72 | 69 74 65 22 3a f4 20 43 |e$+" Spr|ite":. C|
|00003e70| 6c 6f 73 65 20 26 20 74 | 79 70 65 0d 0c 12 30 cc |lose & t|ype...0.|
|00003e80| 20 f4 20 45 64 69 74 65 | 64 20 70 61 72 74 20 69 | . Edite|d part i|
|00003e90| 6e 20 77 69 6e 64 6f 77 | 20 6f 6e 20 73 63 72 65 |n window| on scre|
|00003ea0| 65 6e 2c 20 73 61 76 65 | 20 69 74 0d 0c 1c 28 20 |en, save| it...( |
|00003eb0| f2 69 6e 76 61 6c 69 64 | 61 74 65 5f 73 63 72 65 |.invalid|ate_scre|
|00003ec0| 65 6e 3a f4 20 53 63 72 | 65 65 6e 20 69 6e 76 61 |en:. Scr|een inva|
|00003ed0| 6c 69 64 0d 0c 26 20 20 | e7 50 61 6c 6f 6e 6f 66 |lid..& |.Palonof|
|00003ee0| 66 20 8c 20 70 61 6c 25 | 3d 31 20 8b 20 70 61 6c |f . pal%|=1 . pal|
|00003ef0| 25 3d 30 0d 0c 30 35 20 | c8 99 20 4f 53 53 70 6f |%=0..05 |.. OSSpo|
|00003f00| 70 25 2c 32 2c 2c 53 61 | 76 65 24 2c 70 61 6c 25 |p%,2,,Sa|ve$,pal%|
|00003f10| 3a f4 20 53 61 76 65 20 | 73 63 72 65 65 6e 20 69 |:. Save |screen i|
|00003f20| 6e 20 77 69 6e 64 6f 77 | 0d 0c 3a 2f 20 ef 32 34 |n window|..:/ .24|
|00003f30| 2c 30 3b 30 3b 53 63 72 | 57 25 3b 53 63 72 48 25 |,0;0;Scr|W%;ScrH%|
|00003f40| 3b 3a f4 20 52 65 73 65 | 74 20 73 63 72 65 65 6e |;:. Rese|t screen|
|00003f50| 20 77 69 6e 64 6f 77 0d | 0c 44 05 cd 0d 0c 4e 1d | window.|.D....N.|
|00003f60| f2 68 6f 75 72 5f 6f 66 | 66 3a f4 20 48 6f 75 72 |.hour_of|f:. Hour|
|00003f70| 67 6c 61 73 73 20 6f 66 | 66 0d 0c 58 3c 70 6f 6c |glass of|f..X<pol|
|00003f80| 6c 21 31 32 3d 70 6f 6c | 6c 21 38 3a 70 6f 6c 6c |l!12=pol|l!8:poll|
|00003f90| 21 31 36 3d 33 3a f4 20 | 41 6d 65 6e 64 20 64 61 |!16=3:. |Amend da|
|00003fa0| 74 61 20 62 6c 6f 63 6b | 20 66 6f 72 20 44 61 74 |ta block| for Dat|
|00003fb0| 61 4c 6f 61 64 0d 0c 62 | 2f c8 99 20 57 53 65 6e |aLoad..b|/.. WSen|
|00003fc0| 64 4d 73 67 25 2c 31 38 | 2c 70 6f 6c 6c 2c 70 6f |dMsg%,18|,poll,po|
|00003fd0| 6c 6c 21 34 3a f4 20 53 | 65 6e 64 20 44 61 74 61 |ll!4:. S|end Data|
|00003fe0| 4c 6f 61 64 0d 0c 6c 3d | 44 61 74 61 4c 6f 61 64 |Load..l=|DataLoad|
|00003ff0| 52 65 66 25 3d 70 6f 6c | 6c 21 38 3a f4 20 41 77 |Ref%=pol|l!8:. Aw|
|00004000| 61 69 74 20 61 20 44 61 | 74 61 4c 6f 61 64 41 63 |ait a Da|taLoadAc|
|00004010| 6b 2c 20 72 65 6d 65 6d | 62 65 72 20 6d 79 72 65 |k, remem|ber myre|
|00004020| 66 0d 0c 76 05 e1 0d 0c | 80 04 0d 0c 8a 0f dd a4 |f..v....|........|
|00004030| 70 69 63 5f 44 45 47 41 | 53 0d 0c 94 2f f4 20 4d |pic_DEGA|S.../. M|
|00004040| 61 6b 65 73 20 41 74 61 | 72 69 20 44 65 67 61 73 |akes Ata|ri Degas|
|00004050| 20 69 6d 61 67 65 20 28 | 50 49 31 2f 32 2f 33 2c | image (|PI1/2/3,|
|00004060| 50 43 31 2f 32 2f 33 29 | 0d 0c 9e 2b 69 54 79 70 |PC1/2/3)|...+iTyp|
|00004070| 65 25 3d 30 3a f4 20 53 | 65 74 20 6c 6f 77 2d 74 |e%=0:. S|et low-t|
|00004080| 6f 2d 68 69 67 68 20 74 | 79 70 65 20 6f 66 20 64 |o-high t|ype of d|
|00004090| 61 74 61 0d 0c a8 33 63 | 6f 6d 70 72 25 3d a4 69 |ata...3c|ompr%=.i|
|000040a0| 31 3a 72 65 73 25 3d a4 | 69 31 3a f4 20 46 6c 61 |1:res%=.|i1:. Fla|
|000040b0| 67 73 2c 20 72 65 73 6f | 6c 75 74 69 6f 6e 20 28 |gs, reso|lution (|
|000040c0| 31 2f 32 2f 33 29 0d 0c | b2 37 63 6f 6d 70 72 65 |1/2/3)..|.7compre|
|000040d0| 73 73 65 64 3d 28 28 63 | 6f 6d 70 72 25 80 25 31 |ssed=((c|ompr%.%1|
|000040e0| 30 30 30 30 30 30 30 29 | 3e 30 29 3a f4 20 43 6f |0000000)|>0):. Co|
|000040f0| 6d 70 72 65 73 73 65 64 | 20 66 6c 61 67 0d 0c bc |mpressed| flag...|
|00004100| 23 74 6f 74 61 6c 25 3d | 33 32 30 30 30 3a f4 20 |#total%=|32000:. |
|00004110| 54 6f 74 61 6c 20 64 61 | 74 61 20 62 79 74 65 73 |Total da|ta bytes|
|00004120| 0d 0c c6 0d c8 8e 20 72 | 65 73 25 20 ca 0d 0c d0 |...... r|es% ....|
|00004130| 27 20 c9 20 30 20 3a 20 | 78 72 65 73 25 3d 33 32 |' . 0 : |xres%=32|
|00004140| 30 3a 79 72 65 73 25 3d | 32 30 30 3a 63 6f 6c 73 |0:yres%=|200:cols|
|00004150| 25 3d 31 36 0d 0c da 26 | 20 c9 20 31 20 3a 20 78 |%=16...&| . 1 : x|
|00004160| 72 65 73 25 3d 36 34 30 | 3a 79 72 65 73 25 3d 32 |res%=640|:yres%=2|
|00004170| 30 30 3a 63 6f 6c 73 25 | 3d 34 0d 0c e4 26 20 c9 |00:cols%|=4...& .|
|00004180| 20 32 20 3a 20 78 72 65 | 73 25 3d 36 34 30 3a 79 | 2 : xre|s%=640:y|
|00004190| 72 65 73 25 3d 34 30 30 | 3a 63 6f 6c 73 25 3d 32 |res%=400|:cols%=2|
|000041a0| 0d 0c ee 05 cb 0d 0c f8 | 33 6d 6f 64 65 25 3d a4 |........|3mode%=.|
|000041b0| 6d 6f 64 65 28 78 72 65 | 73 25 2c 79 72 65 73 25 |mode(xre|s%,yres%|
|000041c0| 2c 63 6f 6c 73 25 29 3a | f4 20 44 65 74 65 72 6d |,cols%):|. Determ|
|000041d0| 69 6e 65 20 6d 6f 64 65 | 0d 0d 02 27 e7 a4 6e 65 |ine mode|...'..ne|
|000041e0| 77 5f 69 6d 61 67 65 28 | 6d 6f 64 65 25 2c 78 72 |w_image(|mode%,xr|
|000041f0| 65 73 25 2c 79 72 65 73 | 25 29 20 8b 20 3d a3 0d |es%,yres|%) . =..|
|00004200| 0d 0c 3b c8 99 20 22 4f | 53 5f 47 42 50 42 22 2c |..;.. "O|S_GBPB",|
|00004210| 33 2c 46 69 6c 65 2c 54 | 69 6e 79 25 2c 33 32 2c |3,File,T|iny%,32,|
|00004220| 32 3a f4 20 52 65 61 64 | 20 70 61 6c 65 74 74 65 |2:. Read| palette|
|00004230| 20 66 72 6f 6d 20 66 69 | 6c 65 0d 0d 16 91 50 61 | from fi|le....Pa|
|00004240| 6c 65 74 74 65 25 28 30 | 29 3d 63 6f 6c 73 25 3a |lette%(0|)=cols%:|
|00004250| e3 20 63 25 3d 30 20 b8 | 20 63 6f 6c 73 25 2d 31 |. c%=0 .| cols%-1|
|00004260| 3a 76 25 3d 54 69 6e 79 | 25 21 28 63 25 2a 32 29 |:v%=Tiny|%!(c%*2)|
|00004270| 3a 72 25 3d 28 76 25 80 | 37 29 2a 33 32 3a 67 25 |:r%=(v%.|7)*32:g%|
|00004280| 3d 28 28 76 25 3e 3e 31 | 32 29 80 37 29 2a 33 32 |=((v%>>1|2).7)*32|
|00004290| 3a 62 25 3d 28 28 76 25 | 3e 3e 38 29 80 37 29 2a |:b%=((v%|>>8).7)*|
|000042a0| 33 32 3a 50 61 6c 65 74 | 74 65 25 28 63 6f 6c 73 |32:Palet|te%(cols|
|000042b0| 25 2d 63 25 29 3d 28 72 | 25 3c 3c 31 36 29 2b 28 |%-c%)=(r|%<<16)+(|
|000042c0| 67 25 3c 3c 38 29 2b 62 | 25 3a ed 0d 0d 20 5e e7 |g%<<8)+b|%:... ^.|
|000042d0| 63 6f 6d 70 72 65 73 73 | 65 64 20 8c 20 63 6f 6d |compress|ed . com|
|000042e0| 70 72 24 3d 22 52 65 70 | 65 61 74 65 64 20 62 79 |pr$="Rep|eated by|
|000042f0| 74 65 22 3a 74 79 70 65 | 24 3d 22 50 43 22 2b c3 |te":type|$="PC"+.|
|00004300| 28 72 65 73 25 2b 31 29 | 20 8b 20 63 6f 6d 70 72 |(res%+1)| . compr|
|00004310| 24 3d 22 22 3a 74 79 70 | 65 24 3d 22 50 49 22 2b |$="":typ|e$="PI"+|
|00004320| c3 28 72 65 73 25 2b 31 | 29 0d 0d 2a 57 f2 69 6d |.(res%+1|)..*W.im|
|00004330| 61 67 65 5f 69 6e 66 6f | 28 22 41 74 61 72 69 20 |age_info|("Atari |
|00004340| 44 65 67 61 73 20 22 2b | 74 79 70 65 24 2c 78 72 |Degas "+|type$,xr|
|00004350| 65 73 25 2c 79 72 65 73 | 25 2c 63 6f 6c 73 25 2c |es%,yres|%,cols%,|
|00004360| 6d 6f 64 65 25 2c 63 6f | 6d 70 72 24 2c 22 22 2c |mode%,co|mpr$,"",|
|00004370| 46 6c 65 6e 25 2d 33 34 | 2c 74 6f 74 61 6c 25 29 |Flen%-34|,total%)|
|00004380| 0d 0d 34 5e f2 76 61 72 | 28 22 63 6f 6d 70 22 2c |..4^.var|("comp",|
|00004390| 63 6f 6d 70 72 65 73 73 | 65 64 29 3a f2 76 61 72 |compress|ed):.var|
|000043a0| 28 22 72 65 73 74 22 2c | 72 65 73 25 29 3a f2 76 |("rest",|res%):.v|
|000043b0| 61 72 28 22 66 70 74 72 | 22 2c 26 32 32 29 3a f2 |ar("fptr|",&22):.|
|000043c0| 75 6e 70 61 63 6b 28 22 | 44 45 47 41 53 22 2c 6d |unpack("|DEGAS",m|
|000043d0| 6f 64 65 25 29 3a f4 20 | 55 6e 70 61 63 6b 0d 0d |ode%):. |Unpack..|
|000043e0| 3e 15 49 6d 67 4d 6f 64 | 65 25 3d 6d 6f 64 65 25 |>.ImgMod|e%=mode%|
|000043f0| 3a 3d b9 0d 0d 48 05 20 | 0d 0d 52 0d dd a4 70 69 |:=...H. |..R...pi|
|00004400| 63 5f 49 4d 47 0d 0d 5c | 1b f4 20 4d 61 6b 65 73 |c_IMG..\|.. Makes|
|00004410| 20 41 74 61 72 69 20 49 | 4d 47 20 69 6d 61 67 65 | Atari I|MG image|
|00004420| 0d 0d 66 2b 69 54 79 70 | 65 25 3d 31 3a f4 20 53 |..f+iTyp|e%=1:. S|
|00004430| 65 74 20 68 69 67 68 2d | 74 6f 2d 6c 6f 77 20 74 |et high-|to-low t|
|00004440| 79 70 65 20 6f 66 20 64 | 61 74 61 0d 0d 70 48 76 |ype of d|ata..pHv|
|00004450| 65 72 73 69 6f 6e 25 3d | a4 69 32 3a 68 65 61 64 |ersion%=|.i2:head|
|00004460| 6c 65 6e 25 3d a4 69 32 | 3a 6e 70 6c 61 6e 65 73 |len%=.i2|:nplanes|
|00004470| 25 3d a4 69 32 3a f4 20 | 56 65 72 73 69 6f 6e 2c |%=.i2:. |Version,|
|00004480| 20 68 65 61 64 6c 65 6e | 67 74 68 2c 20 70 6c 61 | headlen|gth, pla|
|00004490| 6e 65 73 0d 0d 7a 48 70 | 61 74 6c 65 6e 25 3d a4 |nes..zHp|atlen%=.|
|000044a0| 69 32 3a 70 77 25 3d a4 | 69 32 3a 70 68 25 3d a4 |i2:pw%=.|i2:ph%=.|
|000044b0| 69 32 3a f4 20 50 61 74 | 74 65 72 6e 20 6c 65 6e |i2:. Pat|tern len|
|000044c0| 67 74 68 2c 20 70 69 78 | 65 6c 20 77 69 64 74 68 |gth, pix|el width|
|000044d0| 20 61 6e 64 20 68 65 69 | 67 68 74 0d 0d 84 37 77 | and hei|ght...7w|
|000044e0| 69 64 74 68 25 3d a4 69 | 32 3a 68 65 69 67 68 74 |idth%=.i|2:height|
|000044f0| 25 3d a4 69 32 3a f4 20 | 57 69 64 74 68 20 61 6e |%=.i2:. |Width an|
|00004500| 64 20 68 65 69 67 68 74 | 20 69 6e 20 70 69 78 65 |d height| in pixe|
|00004510| 6c 73 0d 0d 8e 28 63 6f | 6c 73 25 3d 32 5e 6e 70 |ls...(co|ls%=2^np|
|00004520| 6c 61 6e 65 73 25 3a f4 | 20 4e 75 6d 62 65 72 20 |lanes%:.| Number |
|00004530| 6f 66 20 63 6f 6c 6f 75 | 72 73 0d 0d 98 6f e7 63 |of colou|rs...o.c|
|00004540| 6f 6c 73 25 3c 3e 32 20 | 84 20 70 61 74 6c 65 6e |ols%<>2 |. patlen|
|00004550| 25 3c 3e 32 20 8c 20 f2 | 65 72 72 6f 72 28 2d 31 |%<>2 . .|error(-1|
|00004560| 2c 22 49 20 63 61 6e 6e | 6f 74 20 64 69 73 70 6c |,"I cann|ot displ|
|00004570| 61 79 20 41 74 61 72 69 | 20 49 4d 47 20 69 6d 61 |ay Atari| IMG ima|
|00004580| 67 65 73 20 77 69 74 68 | 20 63 6f 6c 6f 75 72 20 |ges with| colour |
|00004590| 6f 72 20 70 61 74 74 65 | 72 6e 6c 65 6e 67 74 68 |or patte|rnlength|
|000045a0| 3c 3e 32 20 21 22 29 3a | e1 0d 0d a2 36 6d 6f 64 |<>2 !"):|....6mod|
|000045b0| 65 25 3d a4 6d 6f 64 65 | 28 77 69 64 74 68 25 2c |e%=.mode|(width%,|
|000045c0| 68 65 69 67 68 74 25 2c | 63 6f 6c 73 25 29 3a f4 |height%,|cols%):.|
|000045d0| 20 44 65 74 65 72 6d 69 | 6e 65 20 6d 6f 64 65 0d | Determi|ne mode.|
|000045e0| 0d ac 11 e7 6d 6f 64 65 | 25 3c 30 20 8c 20 3d a3 |....mode|%<0 . =.|
|000045f0| 0d 0d b6 2a e7 a4 6e 65 | 77 5f 69 6d 61 67 65 28 |...*..ne|w_image(|
|00004600| 6d 6f 64 65 25 2c 77 69 | 64 74 68 25 2c 68 65 69 |mode%,wi|dth%,hei|
|00004610| 67 68 74 25 29 20 8b 20 | 3d a3 0d 0d c0 41 50 61 |ght%) . |=....APa|
|00004620| 6c 65 74 74 65 25 28 30 | 29 3d 32 3a 50 61 6c 65 |lette%(0|)=2:Pale|
|00004630| 74 74 65 25 28 31 29 3d | 30 3a 50 61 6c 65 74 74 |tte%(1)=|0:Palett|
|00004640| 65 25 28 32 29 3d 26 46 | 46 46 46 46 46 3a f4 20 |e%(2)=&F|FFFFF:. |
|00004650| 53 65 74 20 70 61 6c 65 | 74 74 65 0d 0d ca 76 f2 |Set pale|tte...v.|
|00004660| 69 6d 61 67 65 5f 69 6e | 66 6f 28 22 41 74 61 72 |image_in|fo("Atar|
|00004670| 69 20 49 4d 47 22 2c 77 | 69 64 74 68 25 2c 68 65 |i IMG",w|idth%,he|
|00004680| 69 67 68 74 25 2c 63 6f | 6c 73 25 2c 6d 6f 64 65 |ight%,co|ls%,mode|
|00004690| 25 2c 22 53 65 76 65 72 | 61 6c 20 77 61 79 73 22 |%,"Sever|al ways"|
|000046a0| 2c 22 22 2c 46 6c 65 6e | 25 2d 68 65 61 64 6c 65 |,"",Flen|%-headle|
|000046b0| 6e 25 2a 32 2c 28 77 69 | 64 74 68 25 2a 68 65 69 |n%*2,(wi|dth%*hei|
|000046c0| 67 68 74 25 2a 6e 70 6c | 61 6e 65 73 25 29 81 38 |ght%*npl|anes%).8|
|000046d0| 29 0d 0d d4 62 f2 76 61 | 72 28 22 77 69 64 74 22 |)...b.va|r("widt"|
|000046e0| 2c 77 69 64 74 68 25 29 | 3a f2 76 61 72 28 22 68 |,width%)|:.var("h|
|000046f0| 65 69 67 22 2c 68 65 69 | 67 68 74 25 29 3a f2 76 |eig",hei|ght%):.v|
|00004700| 61 72 28 22 66 70 74 72 | 22 2c 68 65 61 64 6c 65 |ar("fptr|",headle|
|00004710| 6e 25 2a 32 29 3a f2 75 | 6e 70 61 63 6b 28 22 49 |n%*2):.u|npack("I|
|00004720| 4d 47 22 2c 6d 6f 64 65 | 25 29 3a f4 20 55 6e 70 |MG",mode|%):. Unp|
|00004730| 61 63 6b 0d 0d de 15 49 | 6d 67 4d 6f 64 65 25 3d |ack....I|mgMode%=|
|00004740| 6d 6f 64 65 25 3a 3d b9 | 0d 0d e8 05 20 0d 0d f2 |mode%:=.|.... ...|
|00004750| 0d dd a4 70 69 63 5f 4d | 41 43 0d 0d fc 24 f4 20 |...pic_M|AC...$. |
|00004760| 4d 61 6b 65 73 20 4d 61 | 63 49 6e 74 6f 73 68 20 |Makes Ma|cIntosh |
|00004770| 4d 61 63 50 61 69 6e 74 | 20 69 6d 61 67 65 0d 0e |MacPaint| image..|
|00004780| 06 2b 6d 6f 64 65 25 3d | a4 6d 6f 64 65 28 35 37 |.+mode%=|.mode(57|
|00004790| 36 2c 35 31 32 2c 32 29 | 3a f4 20 44 65 74 65 72 |6,512,2)|:. Deter|
|000047a0| 6d 69 6e 65 20 6d 6f 64 | 65 0d 0e 10 23 e7 a4 6e |mine mod|e...#..n|
|000047b0| 65 77 5f 69 6d 61 67 65 | 28 6d 6f 64 65 25 2c 35 |ew_image|(mode%,5|
|000047c0| 37 36 2c 37 32 30 29 20 | 8b 20 3d a3 0d 0e 1a 41 |76,720) |. =....A|
|000047d0| 50 61 6c 65 74 74 65 25 | 28 30 29 3d 32 3a 50 61 |Palette%|(0)=2:Pa|
|000047e0| 6c 65 74 74 65 25 28 31 | 29 3d 30 3a 50 61 6c 65 |lette%(1|)=0:Pale|
|000047f0| 74 74 65 25 28 32 29 3d | 26 46 46 46 46 46 46 3a |tte%(2)=|&FFFFFF:|
|00004800| f4 20 53 65 74 20 70 61 | 6c 65 74 74 65 0d 0e 24 |. Set pa|lette..$|
|00004810| 5e f2 69 6d 61 67 65 5f | 69 6e 66 6f 28 22 4d 61 |^.image_|info("Ma|
|00004820| 63 49 6e 74 6f 73 68 20 | 4d 61 63 50 61 69 6e 74 |cIntosh |MacPaint|
|00004830| 22 2c 35 37 36 2c 37 32 | 30 2c 32 2c 6d 6f 64 65 |",576,72|0,2,mode|
|00004840| 25 2c 22 52 65 70 65 61 | 74 65 64 20 62 79 74 65 |%,"Repea|ted byte|
|00004850| 22 2c 22 22 2c 46 6c 65 | 6e 25 2d 36 34 30 2c 28 |","",Fle|n%-640,(|
|00004860| 35 37 36 2a 37 32 30 29 | 81 38 29 0d 0e 2e 32 f2 |576*720)|.8)...2.|
|00004870| 76 61 72 28 22 66 70 74 | 72 22 2c 36 34 30 29 3a |var("fpt|r",640):|
|00004880| f2 75 6e 70 61 63 6b 28 | 22 4d 41 43 22 2c 6d 6f |.unpack(|"MAC",mo|
|00004890| 64 65 25 29 3a f4 20 55 | 6e 70 61 63 6b 0d 0e 38 |de%):. U|npack..8|
|000048a0| 15 49 6d 67 4d 6f 64 65 | 25 3d 6d 6f 64 65 25 3a |.ImgMode|%=mode%:|
|000048b0| 3d b9 0d 0e 42 05 20 0d | 0e 4c 0d dd a4 70 69 63 |=...B. .|.L...pic|
|000048c0| 5f 49 46 46 0d 0e 56 1b | f4 20 4d 61 6b 65 73 20 |_IFF..V.|. Makes |
|000048d0| 41 6d 69 67 61 20 49 46 | 46 20 69 6d 61 67 65 0d |Amiga IF|F image.|
|000048e0| 0e 60 25 62 6d 68 64 3d | a3 3a 63 6d 61 70 3d a3 |.`%bmhd=|.:cmap=.|
|000048f0| 3a 62 6f 64 79 3d a3 3a | f4 20 49 6e 69 74 20 66 |:body=.:|. Init f|
|00004900| 6c 61 67 73 0d 0e 6a 32 | 68 61 6d 3d a3 3a 6c 61 |lags..j2|ham=.:la|
|00004910| 63 65 3d a3 3a 68 69 72 | 65 73 3d a3 3a 68 61 6c |ce=.:hir|es=.:hal|
|00004920| 66 62 72 69 67 68 74 3d | a3 3a f4 20 49 6e 69 74 |fbright=|.:. Init|
|00004930| 20 66 6c 61 67 73 0d 0e | 74 2b 69 54 79 70 65 25 | flags..|t+iType%|
|00004940| 3d 31 3a f4 20 53 65 74 | 20 68 69 67 68 2d 74 6f |=1:. Set| high-to|
|00004950| 2d 6c 6f 77 20 74 79 70 | 65 20 6f 66 20 64 61 74 |-low typ|e of dat|
|00004960| 61 0d 0e 7e 32 f4 20 43 | 68 65 63 6b 20 69 66 20 |a..~2. C|heck if |
|00004970| 74 68 69 73 20 69 73 20 | 61 20 73 74 61 6e 64 61 |this is |a standa|
|00004980| 72 64 20 49 46 46 20 70 | 69 63 74 75 72 65 20 66 |rd IFF p|icture f|
|00004990| 69 6c 65 0d 0e 88 84 66 | 6f 72 6d 24 3d a4 69 73 |ile....f|orm$=.is|
|000049a0| 74 72 69 6e 67 28 34 29 | 3a f2 69 73 6b 69 70 28 |tring(4)|:.iskip(|
|000049b0| 34 29 3a 66 6f 72 6d 24 | 2b 3d a4 69 73 74 72 69 |4):form$|+=.istri|
|000049c0| 6e 67 28 34 29 3a e7 66 | 6f 72 6d 24 3c 3e 22 46 |ng(4):.f|orm$<>"F|
|000049d0| 4f 52 4d 49 4c 42 4d 22 | 20 8c 20 f2 65 72 72 6f |ORMILBM"| . .erro|
|000049e0| 72 28 2d 31 2c 22 54 68 | 69 73 20 73 63 72 65 65 |r(-1,"Th|is scree|
|000049f0| 6e 20 66 69 6c 65 20 69 | 73 20 6e 6f 74 20 61 6e |n file i|s not an|
|00004a00| 20 49 46 46 20 73 63 72 | 65 65 6e 20 66 69 6c 65 | IFF scr|een file|
|00004a10| 20 21 22 29 3a 3d a3 0d | 0e 92 29 f5 20 f4 20 46 | !"):=..|..). . F|
|00004a20| 6f 6c 6c 6f 77 20 42 4d | 48 44 2c 43 4d 41 50 20 |ollow BM|HD,CMAP |
|00004a30| 61 6e 64 20 42 4f 44 59 | 20 68 65 61 64 65 72 73 |and BODY| headers|
|00004a40| 0d 0e 9c 2f 68 65 61 64 | 24 3d a4 69 73 74 72 69 |.../head|$=.istri|
|00004a50| 6e 67 28 34 29 3a 68 6c | 65 6e 25 3d a4 69 34 3a |ng(4):hl|en%=.i4:|
|00004a60| 73 74 61 72 74 70 74 72 | 25 3d a4 69 70 74 72 0d |startptr|%=.iptr.|
|00004a70| 0e a6 0e c8 8e 20 68 65 | 61 64 24 20 ca 0d 0e b0 |..... he|ad$ ....|
|00004a80| 26 20 c9 20 22 42 4d 48 | 44 22 20 3a 20 62 6d 68 |& . "BMH|D" : bmh|
|00004a90| 64 3d b9 3a f4 20 42 69 | 74 6d 61 70 20 68 65 61 |d=.:. Bi|tmap hea|
|00004aa0| 64 65 72 0d 0e ba 3d 20 | 20 20 20 20 20 20 f4 20 |der...= | . |
|00004ab0| 52 65 61 64 20 70 69 63 | 74 75 72 65 2f 73 63 72 |Read pic|ture/scr|
|00004ac0| 65 65 6e 20 77 69 64 74 | 68 2c 20 68 65 69 67 68 |een widt|h, heigh|
|00004ad0| 74 2c 20 63 6f 6c 6f 75 | 72 73 2c 20 65 74 63 2e |t, colou|rs, etc.|
|00004ae0| 0d 0e c4 41 20 20 20 20 | 20 20 20 77 69 64 74 68 |...A | width|
|00004af0| 25 3d a4 69 32 3a 68 65 | 69 67 68 74 25 3d a4 69 |%=.i2:he|ight%=.i|
|00004b00| 32 3a f2 69 73 6b 69 70 | 28 34 29 3a 70 6c 61 6e |2:.iskip|(4):plan|
|00004b10| 65 73 25 3d a4 69 31 3a | f2 69 73 6b 69 70 28 31 |es%=.i1:|.iskip(1|
|00004b20| 29 0d 0e ce 42 20 20 20 | 20 20 20 20 63 6f 6d 70 |)...B | comp|
|00004b30| 72 65 73 73 65 64 3d 28 | a4 69 31 3d 31 29 3a f2 |ressed=(|.i1=1):.|
|00004b40| 69 73 6b 69 70 28 35 29 | 3a 73 5f 77 69 64 74 68 |iskip(5)|:s_width|
|00004b50| 25 3d a4 69 32 3a 73 5f | 68 65 69 67 68 74 25 3d |%=.i2:s_|height%=|
|00004b60| a4 69 32 0d 0e d8 3d 20 | c9 20 22 43 41 4d 47 22 |.i2...= |. "CAMG"|
|00004b70| 20 3a 20 66 6c 61 67 73 | 25 3d a4 69 34 3a f4 20 | : flags|%=.i4:. |
|00004b80| 47 65 74 20 66 6c 61 67 | 20 62 69 74 73 2c 20 73 |Get flag| bits, s|
|00004b90| 65 74 20 66 6c 61 67 73 | 20 66 72 6f 6d 20 69 74 |et flags| from it|
|00004ba0| 0d 0e e2 35 20 20 20 20 | 20 20 20 68 61 6d 3d 28 |...5 | ham=(|
|00004bb0| 28 66 6c 61 67 73 25 80 | 26 38 30 30 29 3e 30 29 |(flags%.|&800)>0)|
|00004bc0| 3a 6c 61 63 65 3d 28 28 | 66 6c 61 67 73 25 80 26 |:lace=((|flags%.&|
|00004bd0| 34 29 3e 30 29 0d 0e ec | 3f 20 20 20 20 20 20 20 |4)>0)...|? |
|00004be0| 68 69 72 65 73 3d 28 28 | 66 6c 61 67 73 25 80 26 |hires=((|flags%.&|
|00004bf0| 38 30 30 30 29 3e 30 29 | 3a 68 61 6c 66 62 72 69 |8000)>0)|:halfbri|
|00004c00| 67 68 74 3d 28 28 66 6c | 61 67 73 25 80 26 38 30 |ght=((fl|ags%.&80|
|00004c10| 29 3e 30 29 0d 0e f6 2d | 20 c9 20 22 43 4d 41 50 |)>0)...-| . "CMAP|
|00004c20| 22 20 3a 20 63 6d 61 70 | 3d b9 3a f4 20 43 6f 6c |" : cmap|=.:. Col|
|00004c30| 6f 75 72 20 6d 61 70 20 | 28 70 61 6c 65 74 74 65 |our map |(palette|
|00004c40| 29 0d 0f 00 42 20 20 20 | 20 20 20 20 70 61 6c 64 |)...B | pald|
|00004c50| 65 66 73 25 3d 68 6c 65 | 6e 25 81 33 3a f4 20 4e |efs%=hle|n%.3:. N|
|00004c60| 75 6d 62 65 72 20 6f 66 | 20 70 61 6c 65 74 74 65 |umber of| palette|
|00004c70| 20 63 6f 6c 6f 75 72 20 | 64 65 66 69 6e 69 74 69 | colour |definiti|
|00004c80| 6f 6e 73 0d 0f 0a 33 20 | 20 20 20 20 20 20 e3 20 |ons...3 | . |
|00004c90| 5f 25 3d 30 20 b8 20 70 | 61 6c 64 65 66 73 25 2d |_%=0 . p|aldefs%-|
|00004ca0| 31 3a 50 61 6c 65 74 74 | 65 25 28 5f 25 2b 31 29 |1:Palett|e%(_%+1)|
|00004cb0| 3d a4 69 33 3a ed 0d 0f | 14 24 20 c9 20 22 42 4f |=.i3:...|.$ . "BO|
|00004cc0| 44 59 22 20 3a 20 62 6f | 64 79 3d b9 3a f4 20 53 |DY" : bo|dy=.:. S|
|00004cd0| 63 72 65 65 6e 20 64 61 | 74 61 0d 0f 1e 29 20 20 |creen da|ta...) |
|00004ce0| 20 20 20 20 20 f4 20 43 | 68 65 63 6b 20 69 66 20 | . C|heck if |
|00004cf0| 61 6c 6c 20 70 61 72 74 | 73 20 61 72 65 20 74 68 |all part|s are th|
|00004d00| 65 72 65 0d 0f 28 be 20 | 20 20 20 20 20 20 e7 ac |ere..(. | ..|
|00004d10| 62 6d 68 64 20 8c 20 f2 | 65 72 72 6f 72 28 2d 31 |bmhd . .|error(-1|
|00004d20| 2c 22 49 46 46 20 65 72 | 72 6f 72 20 3a 20 49 20 |,"IFF er|ror : I |
|00004d30| 64 69 64 20 6e 6f 74 20 | 66 69 6e 64 20 61 20 27 |did not |find a '|
|00004d40| 42 4d 48 44 27 20 62 6c | 6f 63 6b 2e 20 43 61 6e |BMHD' bl|ock. Can|
|00004d50| 6e 6f 74 20 70 72 6f 63 | 65 65 64 20 21 22 29 3a |not proc|eed !"):|
|00004d60| fd 20 b9 3a 3d a3 20 8b | 20 e7 ac 63 6d 61 70 20 |. .:=. .| ..cmap |
|00004d70| 8c 20 f2 65 72 72 6f 72 | 28 2d 31 2c 22 49 46 46 |. .error|(-1,"IFF|
|00004d80| 20 65 72 72 6f 72 20 3a | 20 49 20 64 69 64 20 6e | error :| I did n|
|00004d90| 6f 74 20 66 69 6e 64 20 | 61 20 27 43 4d 41 50 27 |ot find |a 'CMAP'|
|00004da0| 20 62 6c 6f 63 6b 2e 20 | 43 61 6e 6e 6f 74 20 70 | block. |Cannot p|
|00004db0| 72 6f 63 65 65 64 20 21 | 22 29 3a fd 20 b9 3a 3d |roceed !|"):. .:=|
|00004dc0| a3 0d 0f 32 36 20 20 20 | 20 20 20 20 f4 20 44 65 |...26 | . De|
|00004dd0| 74 65 72 6d 69 6e 65 20 | 73 75 69 74 61 62 6c 65 |termine |suitable|
|00004de0| 20 41 72 63 68 69 6d 65 | 64 65 73 20 73 63 72 65 | Archime|des scre|
|00004df0| 65 6e 20 6d 6f 64 65 0d | 0f 3c 8b 20 20 20 20 20 |en mode.|.<. |
|00004e00| 20 20 e7 68 61 6d 20 8c | 20 63 6f 6c 6f 75 72 73 | .ham .| colours|
|00004e10| 25 3d 31 36 3a 6d 6f 64 | 65 25 3d a4 6d 6f 64 65 |%=16:mod|e%=.mode|
|00004e20| 28 33 32 30 2c 73 5f 68 | 65 69 67 68 74 25 2c 32 |(320,s_h|eight%,2|
|00004e30| 35 36 29 20 8b 20 63 6f | 6c 6f 75 72 73 25 3d 32 |56) . co|lours%=2|
|00004e40| 5e 70 6c 61 6e 65 73 25 | 3a 6d 6f 64 65 25 3d a4 |^planes%|:mode%=.|
|00004e50| 6d 6f 64 65 28 73 5f 77 | 69 64 74 68 25 2c 73 5f |mode(s_w|idth%,s_|
|00004e60| 68 65 69 67 68 74 25 2c | 63 6f 6c 6f 75 72 73 25 |height%,|colours%|
|00004e70| 29 3a f4 20 44 65 74 65 | 72 6d 69 6e 65 20 6d 6f |):. Dete|rmine mo|
|00004e80| 64 65 0d 0f 46 18 20 20 | 20 20 20 20 20 e7 6d 6f |de..F. | .mo|
|00004e90| 64 65 25 3c 30 20 8c 20 | 3d a3 0d 0f 50 3b 20 20 |de%<0 . |=...P; |
|00004ea0| 20 20 20 20 20 e7 63 6f | 6d 70 72 65 73 73 65 64 | .co|mpressed|
|00004eb0| 20 8c 20 63 6f 6d 70 72 | 24 3d 22 52 65 70 65 61 | . compr|$="Repea|
|00004ec0| 74 65 64 20 62 79 74 65 | 22 20 8b 20 63 6f 6d 70 |ted byte|" . comp|
|00004ed0| 72 24 3d 22 22 0d 0f 5a | 92 20 20 20 20 20 20 20 |r$=""..Z|. |
|00004ee0| 69 6e 66 6f 24 3d 22 22 | 3a 73 63 6f 6c 73 25 3d |info$=""|:scols%=|
|00004ef0| 63 6f 6c 6f 75 72 73 25 | 3a e7 68 61 6d 20 8c 20 |colours%|:.ham . |
|00004f00| 73 63 6f 6c 73 25 3d 34 | 30 39 36 3a 69 6e 66 6f |scols%=4|096:info|
|00004f10| 24 3d 22 50 69 63 74 75 | 72 65 20 6d 6f 64 65 7c |$="Pictu|re mode||
|00004f20| 48 6f 6c 64 20 41 6e 64 | 20 4d 6f 64 69 66 79 20 |Hold And| Modify |
|00004f30| 28 48 41 4d 29 22 20 8b | 20 e7 68 61 6c 66 62 72 |(HAM)" .| .halfbr|
|00004f40| 69 67 68 74 20 8c 20 69 | 6e 66 6f 24 3d 22 50 69 |ight . i|nfo$="Pi|
|00004f50| 63 74 75 72 65 20 6d 6f | 64 65 7c 48 61 6c 66 2d |cture mo|de|Half-|
|00004f60| 62 72 69 67 68 74 22 0d | 0f 64 31 20 20 20 20 20 |bright".|.d1 |
|00004f70| 20 20 e7 a4 6e 65 77 5f | 69 6d 61 67 65 28 6d 6f | ..new_|image(mo|
|00004f80| 64 65 25 2c 77 69 64 74 | 68 25 2c 68 65 69 67 68 |de%,widt|h%,heigh|
|00004f90| 74 25 29 20 8b 20 3d a3 | 0d 0f 6e 73 20 20 20 20 |t%) . =.|..ns |
|00004fa0| 20 20 20 f2 69 6d 61 67 | 65 5f 69 6e 66 6f 28 22 | .imag|e_info("|
|00004fb0| 41 6d 69 67 61 20 49 46 | 46 22 2c 77 69 64 74 68 |Amiga IF|F",width|
|00004fc0| 25 2c 68 65 69 67 68 74 | 25 2c 73 63 6f 6c 73 25 |%,height|%,scols%|
|00004fd0| 2c 6d 6f 64 65 25 2c 63 | 6f 6d 70 72 24 2c 69 6e |,mode%,c|ompr$,in|
|00004fe0| 66 6f 24 2c 46 6c 65 6e | 25 2d a4 69 70 74 72 2c |fo$,Flen|%-.iptr,|
|00004ff0| 28 77 69 64 74 68 25 2a | 68 65 69 67 68 74 25 2a |(width%*|height%*|
|00005000| 70 6c 61 6e 65 73 25 29 | 81 38 29 0d 0f 78 39 20 |planes%)|.8)..x9 |
|00005010| 20 20 20 20 20 20 f4 20 | 53 65 74 20 73 65 63 6f | . |Set seco|
|00005020| 6e 64 20 68 61 6c 66 20 | 6f 66 20 68 61 6c 66 62 |nd half |of halfb|
|00005030| 72 69 67 68 74 20 6d 6f | 64 65 27 73 20 70 61 6c |right mo|de's pal|
|00005040| 65 74 74 65 0d 0f 82 84 | 20 20 20 20 20 20 20 e7 |ette....| .|
|00005050| 68 61 6c 66 62 72 69 67 | 68 74 20 8c 20 68 61 6c |halfbrig|ht . hal|
|00005060| 66 25 3d 63 6f 6c 6f 75 | 72 73 25 81 32 3a e3 20 |f%=colou|rs%.2:. |
|00005070| 63 25 3d 31 20 b8 20 68 | 61 6c 66 25 3a 50 61 6c |c%=1 . h|alf%:Pal|
|00005080| 65 74 74 65 25 28 63 25 | 2b 68 61 6c 66 25 29 3d |ette%(c%|+half%)=|
|00005090| 28 50 61 6c 65 74 74 65 | 25 28 63 25 29 80 26 45 |(Palette|%(c%).&E|
|000050a0| 30 45 30 45 30 29 3e 3e | 31 3a ed 3a f4 20 48 61 |0E0E0)>>|1:.:. Ha|
|000050b0| 6c 66 20 62 72 69 67 68 | 74 20 70 61 6c 65 74 74 |lf brigh|t palett|
|000050c0| 65 20 65 78 74 65 6e 64 | 0d 0f 8c 41 20 20 20 20 |e extend|...A |
|000050d0| 20 20 20 f4 20 53 65 74 | 20 75 70 20 70 61 6c 65 | . Set| up pale|
|000050e0| 74 74 65 20 64 61 74 61 | 20 66 6f 72 20 48 41 4d |tte data| for HAM|
|000050f0| 20 6d 6f 64 65 20 61 6e | 64 20 70 61 6c 65 74 74 | mode an|d palett|
|00005100| 65 20 65 6e 74 72 69 65 | 73 0d 0f 96 85 20 20 20 |e entrie|s.... |
|00005110| 20 20 20 20 e7 68 61 6d | 20 8c 20 e3 20 63 25 3d | .ham| . . c%=|
|00005120| 30 20 b8 20 31 35 3a 68 | 61 6d 62 61 73 21 28 63 |0 . 15:h|ambas!(c|
|00005130| 25 2a 34 29 3d 50 61 6c | 65 74 74 65 25 28 63 25 |%*4)=Pal|ette%(c%|
|00005140| 2b 31 29 3a ed 3a c8 99 | 20 22 54 72 61 6e 73 6c |+1):.:..| "Transl|
|00005150| 61 74 6f 72 5f 53 65 74 | 4d 61 70 22 2c 68 61 6d |ator_Set|Map",ham|
|00005160| 62 61 73 2c 2c 31 3a 50 | 61 6c 65 74 74 65 25 28 |bas,,1:P|alette%(|
|00005170| 30 29 3d 34 30 39 36 20 | 8b 20 50 61 6c 65 74 74 |0)=4096 |. Palett|
|00005180| 65 25 28 30 29 3d 63 6f | 6c 6f 75 72 73 25 0d 0f |e%(0)=co|lours%..|
|00005190| a0 69 20 20 20 20 20 20 | 20 f2 76 61 72 28 22 66 |.i | .var("f|
|000051a0| 70 74 72 22 2c a4 69 70 | 74 72 29 3a f2 76 61 72 |ptr",.ip|tr):.var|
|000051b0| 28 22 70 69 78 62 22 2c | 70 6c 61 6e 65 73 25 29 |("pixb",|planes%)|
|000051c0| 3a f2 76 61 72 28 22 77 | 69 64 74 22 2c 77 69 64 |:.var("w|idt",wid|
|000051d0| 74 68 25 29 3a f2 76 61 | 72 28 22 68 65 69 67 22 |th%):.va|r("heig"|
|000051e0| 2c 68 65 69 67 68 74 25 | 29 3a f4 20 4d 6f 64 75 |,height%|):. Modu|
|000051f0| 6c 65 20 69 6e 66 6f 0d | 0f aa 57 20 20 20 20 20 |le info.|..W |
|00005200| 20 20 f2 76 61 72 28 22 | 63 6f 6d 70 22 2c 63 6f | .var("|comp",co|
|00005210| 6d 70 72 65 73 73 65 64 | 29 3a e7 68 61 6d 20 8c |mpressed|):.ham .|
|00005220| 20 f2 76 61 72 28 22 73 | 63 74 79 22 2c 31 29 20 | .var("s|cty",1) |
|00005230| 8b 20 f2 76 61 72 28 22 | 73 63 74 79 22 2c 30 29 |. .var("|scty",0)|
|00005240| 3a f4 20 4d 6f 64 75 6c | 65 20 69 6e 66 6f 0d 0f |:. Modul|e info..|
|00005250| b4 28 20 20 20 20 20 20 | 20 f2 75 6e 70 61 63 6b |.( | .unpack|
|00005260| 28 22 49 46 46 22 2c 6d | 6f 64 65 25 29 3a f4 20 |("IFF",m|ode%):. |
|00005270| 55 6e 70 61 63 6b 0d 0f | be 19 20 20 20 20 20 20 |Unpack..|.. |
|00005280| 20 49 6d 67 4d 6f 64 65 | 25 3d 6d 6f 64 65 25 0d | ImgMode|%=mode%.|
|00005290| 0f c8 05 cb 0d 0f d2 34 | f2 69 73 6b 69 70 28 68 |.......4|.iskip(h|
|000052a0| 6c 65 6e 25 2d 28 a4 69 | 70 74 72 2d 73 74 61 72 |len%-(.i|ptr-star|
|000052b0| 74 70 74 72 25 29 29 3a | f4 20 54 6f 20 6e 65 78 |tptr%)):|. To nex|
|000052c0| 74 20 68 65 61 64 65 72 | 0d 0f dc 0a fd 20 62 6f |t header|..... bo|
|000052d0| 64 79 0d 0f e6 06 3d b9 | 0d 0f f0 05 20 0d 0f fa |dy....=.|.... ...|
|000052e0| 0d dd a4 70 69 63 5f 47 | 49 46 0d 10 04 33 f4 20 |...pic_G|IF...3. |
|000052f0| 4d 61 6b 65 73 20 47 49 | 46 20 28 47 72 61 70 68 |Makes GI|F (Graph|
|00005300| 69 63 73 20 49 6e 74 65 | 72 63 68 61 6e 67 65 20 |ics Inte|rchange |
|00005310| 46 6f 72 6d 61 74 29 20 | 69 6d 61 67 65 0d 10 0e |Format) |image...|
|00005320| 28 ea 20 67 5f 50 61 6c | 65 74 74 65 25 28 29 2c |(. g_Pal|ette%(),|
|00005330| 50 69 63 5f 70 74 72 25 | 28 29 2c 50 69 63 5f 6c |Pic_ptr%|(),Pic_l|
|00005340| 65 6e 25 28 29 0d 10 18 | 31 de 20 67 5f 50 61 6c |en%()...|1. g_Pal|
|00005350| 65 74 74 65 25 28 32 35 | 36 29 2c 50 69 63 5f 70 |ette%(25|6),Pic_p|
|00005360| 74 72 25 28 32 35 36 29 | 2c 50 69 63 5f 6c 65 6e |tr%(256)|,Pic_len|
|00005370| 25 28 32 35 36 29 0d 10 | 22 2b 69 54 79 70 65 25 |%(256)..|"+iType%|
|00005380| 3d 30 3a f4 20 53 65 74 | 20 6c 6f 77 2d 74 6f 2d |=0:. Set| low-to-|
|00005390| 68 69 67 68 20 74 79 70 | 65 20 6f 66 20 64 61 74 |high typ|e of dat|
|000053a0| 61 0d 10 2c 2f 73 69 67 | 6e 61 74 75 72 65 24 3d |a..,/sig|nature$=|
|000053b0| a4 69 73 74 72 69 6e 67 | 28 36 29 3a f4 20 52 65 |.istring|(6):. Re|
|000053c0| 61 64 20 47 49 46 20 73 | 69 67 6e 61 74 75 72 65 |ad GIF s|ignature|
|000053d0| 0d 10 36 58 e7 c0 73 69 | 67 6e 61 74 75 72 65 24 |..6X..si|gnature$|
|000053e0| 2c 33 29 3c 3e 22 47 49 | 46 22 20 8c 20 f2 65 72 |,3)<>"GI|F" . .er|
|000053f0| 72 6f 72 28 2d 31 2c 22 | 54 68 69 73 20 73 63 72 |ror(-1,"|This scr|
|00005400| 65 65 6e 20 66 69 6c 65 | 20 69 73 20 6e 6f 74 20 |een file| is not |
|00005410| 61 20 47 49 46 20 73 63 | 72 65 65 6e 20 66 69 6c |a GIF sc|reen fil|
|00005420| 65 20 21 22 29 3a 3d a3 | 0d 10 40 24 f4 20 52 65 |e !"):=.|..@$. Re|
|00005430| 61 64 20 64 61 74 61 20 | 69 6e 20 53 63 72 65 65 |ad data |in Scree|
|00005440| 6e 20 44 65 73 63 72 69 | 70 74 6f 72 0d 10 4a 3f |n Descri|ptor..J?|
|00005450| 72 5f 77 69 64 74 68 25 | 3d a4 69 32 3a 72 5f 68 |r_width%|=.i2:r_h|
|00005460| 65 69 67 68 74 25 3d a4 | 69 32 3a 66 6c 61 67 73 |eight%=.|i2:flags|
|00005470| 25 3d a4 69 31 3a 62 61 | 63 6b 67 72 25 3d a4 69 |%=.i1:ba|ckgr%=.i|
|00005480| 31 3a f2 69 73 6b 69 70 | 28 31 29 0d 10 54 3b 67 |1:.iskip|(1)..T;g|
|00005490| 6c 6f 62 61 6c 3d 28 28 | 66 6c 61 67 73 25 80 26 |lobal=((|flags%.&|
|000054a0| 38 30 29 3e 30 29 3a f4 | 20 47 6c 6f 62 61 6c 20 |80)>0):.| Global |
|000054b0| 63 6f 6c 6f 75 72 20 6d | 61 70 20 66 6f 6c 6c 6f |colour m|ap follo|
|000054c0| 77 69 6e 67 20 3f 0d 10 | 5e 33 67 5f 70 69 78 62 |wing ?..|^3g_pixb|
|000054d0| 69 74 73 25 3d 28 66 6c | 61 67 73 25 80 37 29 2b |its%=(fl|ags%.7)+|
|000054e0| 31 3a f4 20 47 6c 6f 62 | 61 6c 20 62 69 74 73 20 |1:. Glob|al bits |
|000054f0| 70 65 72 20 70 69 78 65 | 6c 0d 10 68 3a 63 6f 6c |per pixe|l..h:col|
|00005500| 62 69 74 73 25 3d 28 28 | 66 6c 61 67 73 25 3e 3e |bits%=((|flags%>>|
|00005510| 34 29 80 37 29 2b 31 3a | f4 20 42 69 74 73 20 6f |4).7)+1:|. Bits o|
|00005520| 66 20 63 6f 6c 6f 75 72 | 20 72 65 73 6f 6c 75 74 |f colour| resolut|
|00005530| 69 6f 6e 0d 10 72 0d e7 | 67 6c 6f 62 61 6c 20 8c |ion..r..|global .|
|00005540| 0d 10 7c 25 20 f4 20 52 | 65 61 64 20 47 6c 6f 62 |..|% . R|ead Glob|
|00005550| 61 6c 20 43 6f 6c 6f 75 | 72 20 4d 61 70 20 70 61 |al Colou|r Map pa|
|00005560| 6c 65 74 74 65 0d 10 86 | 42 20 e3 20 63 25 3d 31 |lette...|B . c%=1|
|00005570| 20 b8 20 32 5e 67 5f 70 | 69 78 62 69 74 73 25 3a | . 2^g_p|ixbits%:|
|00005580| 67 5f 50 61 6c 65 74 74 | 65 25 28 63 25 29 3d 28 |g_Palett|e%(c%)=(|
|00005590| a4 69 31 3c 3c 31 36 29 | 2b 28 a4 69 31 3c 3c 38 |.i1<<16)|+(.i1<<8|
|000055a0| 29 2b a4 69 31 3a ed 0d | 10 90 31 20 67 5f 50 61 |)+.i1:..|..1 g_Pa|
|000055b0| 6c 65 74 74 65 25 28 30 | 29 3d 32 5e 67 5f 70 69 |lette%(0|)=2^g_pi|
|000055c0| 78 62 69 74 73 25 3a f4 | 20 50 61 6c 65 74 74 65 |xbits%:.| Palette|
|000055d0| 20 65 6e 74 72 69 65 73 | 0d 10 9a 27 cc 20 50 61 | entries|...'. Pa|
|000055e0| 6c 65 74 74 65 25 28 30 | 29 3d 2d 31 3a f4 20 4e |lette%(0|)=-1:. N|
|000055f0| 6f 20 70 61 6c 65 74 74 | 65 20 66 6f 75 6e 64 0d |o palett|e found.|
|00005600| 10 a4 05 cd 0d 10 ae 29 | f4 20 53 63 61 6e 20 64 |.......)|. Scan d|
|00005610| 61 74 61 20 66 6f 72 20 | 70 69 63 74 75 72 65 73 |ata for |pictures|
|00005620| 2c 20 6d 61 6b 65 20 61 | 20 6c 69 73 74 0d 10 b8 |, make a| list...|
|00005630| 10 70 69 63 74 75 72 65 | 25 3d 30 3a f5 0d 10 c2 |.picture|%=0:....|
|00005640| 3f f2 73 6b 69 70 5f 47 | 49 46 5f 65 78 74 65 6e |?.skip_G|IF_exten|
|00005650| 73 69 6f 6e 3a f4 20 53 | 6b 69 70 20 65 78 74 65 |sion:. S|kip exte|
|00005660| 6e 73 69 6f 6e 20 62 6c | 6f 63 6b 73 20 70 72 65 |nsion bl|ocks pre|
|00005670| 63 65 64 69 6e 67 20 49 | 6d 61 67 65 0d 10 cc 26 |ceding I|mage...&|
|00005680| f4 20 53 65 61 72 63 68 | 20 66 6f 72 20 6e 65 78 |. Search| for nex|
|00005690| 74 20 49 6d 61 67 65 20 | 44 65 73 63 72 69 70 74 |t Image |Descript|
|000056a0| 6f 72 0d 10 d6 43 f5 20 | 5f 25 3d a4 69 31 3a 69 |or...C. |_%=.i1:i|
|000056b0| 6d 61 67 65 3d 28 5f 25 | 3d 97 22 2c 22 29 3a 65 |mage=(_%|=.","):e|
|000056c0| 6e 64 3d 28 5f 25 3d 97 | 22 3b 22 29 3a fd 20 69 |nd=(_%=.|";"):. i|
|000056d0| 6d 61 67 65 20 84 20 65 | 6e 64 20 84 20 28 c5 23 |mage . e|nd . (.#|
|000056e0| 46 69 6c 65 29 0d 10 e0 | 7e e7 ac 69 6d 61 67 65 |File)...|~..image|
|000056f0| 20 8c 20 e7 ac 65 6e 64 | 20 8c 20 f2 65 72 72 6f | . ..end| . .erro|
|00005700| 72 28 2d 31 2c 22 57 61 | 72 6e 69 6e 67 20 21 20 |r(-1,"Wa|rning ! |
|00005710| 47 49 46 20 66 69 6c 65 | 20 69 73 20 6e 6f 74 20 |GIF file| is not |
|00005720| 70 72 6f 70 65 72 6c 79 | 20 74 65 72 6d 69 6e 61 |properly| termina|
|00005730| 74 65 64 20 21 22 29 3a | 65 6e 64 3d b9 3a f2 68 |ted !"):|end=.:.h|
|00005740| 6f 75 72 5f 6f 66 66 3a | f2 68 6f 75 72 5f 6f 6e |our_off:|.hour_on|
|00005750| 3a f4 20 52 65 61 64 20 | 62 65 79 6f 6e 64 20 66 |:. Read |beyond f|
|00005760| 69 6c 65 0d 10 ea 0c e7 | 69 6d 61 67 65 20 8c 0d |ile.....|image ..|
|00005770| 10 f4 22 20 f4 20 52 65 | 67 69 73 74 65 72 20 70 |.." . Re|gister p|
|00005780| 69 63 74 75 72 65 27 73 | 20 70 6f 73 69 74 69 6f |icture's| positio|
|00005790| 6e 0d 10 fe 2b 20 70 69 | 63 74 75 72 65 25 2b 3d |n...+ pi|cture%+=|
|000057a0| 31 3a 50 69 63 5f 70 74 | 72 25 28 70 69 63 74 75 |1:Pic_pt|r%(pictu|
|000057b0| 72 65 25 29 3d a4 69 70 | 74 72 2d 31 0d 11 08 2d |re%)=.ip|tr-1...-|
|000057c0| 20 f4 20 49 66 20 74 68 | 65 72 65 27 73 20 61 20 | . If th|ere's a |
|000057d0| 6c 6f 63 61 6c 20 63 6f | 6c 6f 75 72 20 6d 61 70 |local co|lour map|
|000057e0| 2c 20 73 6b 69 70 20 69 | 74 0d 11 12 3a 20 f2 69 |, skip i|t...: .i|
|000057f0| 73 6b 69 70 28 38 29 3a | 5f 25 3d a4 69 31 3a e7 |skip(8):|_%=.i1:.|
|00005800| 28 5f 25 80 26 38 30 29 | 3e 30 20 8c 20 f2 69 73 |(_%.&80)|>0 . .is|
|00005810| 6b 69 70 28 33 2a 32 5e | 28 28 5f 25 80 37 29 2b |kip(3*2^|((_%.7)+|
|00005820| 31 29 29 0d 11 1c 0f 20 | e7 47 49 46 53 63 61 6e |1)).... |.GIFScan|
|00005830| 20 8c 0d 11 26 30 20 20 | f4 20 44 65 74 65 72 6d | ...&0 |. Determ|
|00005840| 69 6e 65 20 70 69 63 74 | 75 72 65 20 64 61 74 61 |ine pict|ure data|
|00005850| 20 6c 65 6e 67 74 68 2c | 20 73 6b 69 70 20 64 61 | length,| skip da|
|00005860| 74 61 0d 11 30 2a 20 20 | f2 69 73 6b 69 70 28 31 |ta..0* |.iskip(1|
|00005870| 29 3a f5 20 63 25 3d a4 | 69 31 3a f2 69 73 6b 69 |):. c%=.|i1:.iski|
|00005880| 70 28 63 25 29 3a fd 20 | 63 25 3d 30 0d 11 3a 31 |p(c%):. |c%=0..:1|
|00005890| 20 20 50 69 63 5f 6c 65 | 6e 25 28 70 69 63 74 75 | Pic_le|n%(pictu|
|000058a0| 72 65 25 29 3d a4 69 70 | 74 72 2d 50 69 63 5f 70 |re%)=.ip|tr-Pic_p|
|000058b0| 74 72 25 28 70 69 63 74 | 75 72 65 25 29 0d 11 44 |tr%(pict|ure%)..D|
|000058c0| 38 20 cc 20 50 69 63 5f | 6c 65 6e 25 28 70 69 63 |8 . Pic_|len%(pic|
|000058d0| 74 75 72 65 25 29 3d a4 | 69 6c 65 6e 2d 50 69 63 |ture%)=.|ilen-Pic|
|000058e0| 5f 70 74 72 25 28 70 69 | 63 74 75 72 65 25 29 3a |_ptr%(pi|cture%):|
|000058f0| 65 6e 64 3d b9 0d 11 4e | 06 20 cd 0d 11 58 05 cd |end=...N|. ...X..|
|00005900| 0d 11 62 09 fd 20 65 6e | 64 0d 11 6c 31 70 69 63 |..b.. en|d..l1pic|
|00005910| 74 75 72 65 73 25 3d 70 | 69 63 74 75 72 65 25 3a |tures%=p|icture%:|
|00005920| f4 20 4e 75 6d 62 65 72 | 20 6f 66 20 70 69 63 74 |. Number| of pict|
|00005930| 75 72 65 73 20 66 6f 75 | 6e 64 0d 11 76 4e e7 70 |ures fou|nd..vN.p|
|00005940| 69 63 74 75 72 65 73 25 | 3e 30 20 8b 20 f2 65 72 |ictures%|>0 . .er|
|00005950| 72 6f 72 28 2d 31 2c 22 | 49 20 63 61 6e 6e 6f 74 |ror(-1,"|I cannot|
|00005960| 20 66 69 6e 64 20 61 6e | 79 20 69 6d 61 67 65 73 | find an|y images|
|00005970| 20 69 6e 20 74 68 69 73 | 20 47 49 46 20 66 69 6c | in this| GIF fil|
|00005980| 65 20 21 22 29 3a 3d a3 | 0d 11 80 0e e7 47 49 46 |e !"):=.|.....GIF|
|00005990| 53 63 61 6e 20 8c 0d 11 | 8a ba 20 e7 28 49 6d 61 |Scan ...|.. .(Ima|
|000059a0| 67 65 4e 72 25 3e 30 29 | 20 80 20 28 49 6d 61 67 |geNr%>0)| . (Imag|
|000059b0| 65 4e 72 25 3c 3d 70 69 | 63 74 75 72 65 73 25 29 |eNr%<=pi|ctures%)|
|000059c0| 20 8c 20 70 69 63 74 75 | 72 65 25 3d 49 6d 61 67 | . pictu|re%=Imag|
|000059d0| 65 4e 72 25 20 8b 20 f2 | 65 72 72 6f 72 28 2d 31 |eNr% . .|error(-1|
|000059e0| 2c 22 54 68 69 73 20 66 | 69 6c 65 20 63 6f 6e 74 |,"This f|ile cont|
|000059f0| 61 69 6e 73 20 22 2b c3 | 28 70 69 63 74 75 72 65 |ains "+.|(picture|
|00005a00| 73 25 29 2b 22 20 69 6d | 61 67 65 73 2e 20 53 65 |s%)+" im|ages. Se|
|00005a10| 6c 65 63 74 20 27 31 27 | 2d 27 22 2b c3 28 70 69 |lect '1'|-'"+.(pi|
|00005a20| 63 74 75 72 65 73 25 29 | 2b 22 27 20 69 6e 20 74 |ctures%)|+"' in t|
|00005a30| 68 65 20 27 49 6d 61 67 | 65 20 6e 75 6d 62 65 72 |he 'Imag|e number|
|00005a40| 27 20 73 75 62 6d 65 6e | 75 20 21 22 29 3a 3d a3 |' submen|u !"):=.|
|00005a50| 0d 11 94 10 cc 20 70 69 | 63 74 75 72 65 25 3d 31 |..... pi|cture%=1|
|00005a60| 0d 11 9e 05 cd 0d 11 a8 | 49 f2 69 70 74 72 28 50 |........|I.iptr(P|
|00005a70| 69 63 5f 70 74 72 25 28 | 70 69 63 74 75 72 65 25 |ic_ptr%(|picture%|
|00005a80| 29 2b 31 29 3a 6c 65 6e | 25 3d 50 69 63 5f 6c 65 |)+1):len|%=Pic_le|
|00005a90| 6e 25 28 70 69 63 74 75 | 72 65 25 29 3a f4 20 50 |n%(pictu|re%):. P|
|00005aa0| 69 63 27 73 20 70 6f 73 | 20 26 20 6c 65 6e 0d 11 |ic's pos| & len..|
|00005ab0| b2 20 f4 20 52 65 61 64 | 20 49 6d 61 67 65 20 44 |. . Read| Image D|
|00005ac0| 65 73 63 72 69 70 74 6f | 72 20 64 61 74 61 0d 11 |escripto|r data..|
|00005ad0| bc 40 69 5f 6c 65 66 74 | 25 3d a4 69 32 3a 69 5f |.@i_left|%=.i2:i_|
|00005ae0| 74 6f 70 25 3d a4 69 32 | 3a 69 5f 77 69 64 74 68 |top%=.i2|:i_width|
|00005af0| 25 3d a4 69 32 3a 69 5f | 68 65 69 67 68 74 25 3d |%=.i2:i_|height%=|
|00005b00| a4 69 32 3a 66 6c 61 67 | 73 25 3d a4 69 31 0d 11 |.i2:flag|s%=.i1..|
|00005b10| c6 37 6c 6f 63 61 6c 3d | 28 66 6c 61 67 73 25 80 |.7local=|(flags%.|
|00005b20| 26 38 30 29 3e 30 3a f4 | 20 4c 6f 63 61 6c 20 63 |&80)>0:.| Local c|
|00005b30| 6f 6c 6f 75 72 20 6d 61 | 70 20 66 6f 6c 6c 6f 77 |olour ma|p follow|
|00005b40| 69 6e 67 20 3f 0d 11 d0 | 3c 69 62 69 74 3d 28 66 |ing ?...|<ibit=(f|
|00005b50| 6c 61 67 73 25 80 26 34 | 30 29 3e 30 3a f4 20 49 |lags%.&4|0)>0:. I|
|00005b60| 6d 61 67 65 20 73 74 6f | 72 65 64 20 69 6e 20 69 |mage sto|red in i|
|00005b70| 6e 74 65 72 6c 61 63 65 | 64 20 6f 72 64 65 72 20 |nterlace|d order |
|00005b80| 3f 0d 11 da 32 6c 5f 70 | 69 78 62 69 74 73 25 3d |?...2l_p|ixbits%=|
|00005b90| 28 66 6c 61 67 73 25 80 | 37 29 2b 31 3a f4 20 4c |(flags%.|7)+1:. L|
|00005ba0| 6f 63 61 6c 20 62 69 74 | 73 20 70 65 72 20 70 69 |ocal bit|s per pi|
|00005bb0| 78 65 6c 0d 11 e4 0c e7 | 6c 6f 63 61 6c 20 8c 0d |xel.....|local ..|
|00005bc0| 11 ee 40 20 70 69 78 62 | 69 74 73 25 3d 6c 5f 70 |..@ pixb|its%=l_p|
|00005bd0| 69 78 62 69 74 73 25 3a | f4 20 52 65 61 64 20 61 |ixbits%:|. Read a|
|00005be0| 6e 64 20 75 73 65 20 4c | 6f 63 61 6c 20 43 6f 6c |nd use L|ocal Col|
|00005bf0| 6f 75 72 20 4d 61 70 20 | 70 61 6c 65 74 74 65 0d |our Map |palette.|
|00005c00| 11 f8 40 20 e3 20 63 25 | 3d 31 20 b8 20 32 5e 6c |..@ . c%|=1 . 2^l|
|00005c10| 5f 70 69 78 62 69 74 73 | 25 3a 50 61 6c 65 74 74 |_pixbits|%:Palett|
|00005c20| 65 25 28 63 25 29 3d 28 | a4 69 31 3c 3c 31 36 29 |e%(c%)=(|.i1<<16)|
|00005c30| 2b 28 a4 69 31 3c 3c 38 | 29 2b a4 69 31 3a ed 0d |+(.i1<<8|)+.i1:..|
|00005c40| 12 02 2f 20 50 61 6c 65 | 74 74 65 25 28 30 29 3d |../ Pale|tte%(0)=|
|00005c50| 32 5e 6c 5f 70 69 78 62 | 69 74 73 25 3a f4 20 50 |2^l_pixb|its%:. P|
|00005c60| 61 6c 65 74 74 65 20 65 | 6e 74 72 69 65 73 0d 12 |alette e|ntries..|
|00005c70| 0c 43 cc 20 70 69 78 62 | 69 74 73 25 3d 67 5f 70 |.C. pixb|its%=g_p|
|00005c80| 69 78 62 69 74 73 25 3a | 50 61 6c 65 74 74 65 25 |ixbits%:|Palette%|
|00005c90| 28 29 3d 67 5f 50 61 6c | 65 74 74 65 25 28 29 3a |()=g_Pal|ette%():|
|00005ca0| f4 20 55 73 65 20 47 6c | 6f 62 61 6c 20 64 61 74 |. Use Gl|obal dat|
|00005cb0| 61 0d 12 16 05 cd 0d 12 | 20 50 e7 50 61 6c 65 74 |a.......| P.Palet|
|00005cc0| 74 65 25 28 30 29 3d 2d | 31 20 8c 20 f2 65 72 72 |te%(0)=-|1 . .err|
|00005cd0| 6f 72 28 2d 31 2c 22 49 | 20 63 61 6e 6e 6f 74 20 |or(-1,"I| cannot |
|00005ce0| 66 69 6e 64 20 61 20 70 | 61 6c 65 74 74 65 20 69 |find a p|alette i|
|00005cf0| 6e 20 74 68 69 73 20 47 | 49 46 20 66 69 6c 65 20 |n this G|IF file |
|00005d00| 21 22 29 3a 3d a3 0d 12 | 2a 2b 63 6f 6c 6f 75 72 |!"):=...|*+colour|
|00005d10| 73 25 3d 32 5e 70 69 78 | 62 69 74 73 25 3a f4 20 |s%=2^pix|bits%:. |
|00005d20| 4e 75 6d 62 65 72 20 6f | 66 20 63 6f 6c 6f 75 72 |Number o|f colour|
|00005d30| 73 0d 12 34 2f f4 20 44 | 65 74 65 72 6d 69 6e 65 |s..4/. D|etermine|
|00005d40| 20 73 75 69 74 61 62 6c | 65 20 41 72 63 68 69 6d | suitabl|e Archim|
|00005d50| 65 64 65 73 20 73 63 72 | 65 65 6e 20 6d 6f 64 65 |edes scr|een mode|
|00005d60| 0d 12 3e 3d 6d 6f 64 65 | 25 3d a4 6d 6f 64 65 28 |..>=mode|%=.mode(|
|00005d70| 72 5f 77 69 64 74 68 25 | 2c 72 5f 68 65 69 67 68 |r_width%|,r_heigh|
|00005d80| 74 25 2c 63 6f 6c 6f 75 | 72 73 25 29 3a f4 20 44 |t%,colou|rs%):. D|
|00005d90| 65 74 65 72 6d 69 6e 65 | 20 6d 6f 64 65 0d 12 48 |etermine| mode..H|
|00005da0| 11 e7 6d 6f 64 65 25 3c | 30 20 8c 20 3d a3 0d 12 |..mode%<|0 . =...|
|00005db0| 52 2e e7 a4 6e 65 77 5f | 69 6d 61 67 65 28 6d 6f |R...new_|image(mo|
|00005dc0| 64 65 25 2c 69 5f 77 69 | 64 74 68 25 2c 69 5f 68 |de%,i_wi|dth%,i_h|
|00005dd0| 65 69 67 68 74 25 29 20 | 8b 20 3d a3 0d 12 5c 27 |eight%) |. =...\'|
|00005de0| e7 47 49 46 53 63 61 6e | 20 8c 20 6e 70 24 3d c3 |.GIFScan| . np$=.|
|00005df0| 70 69 63 74 75 72 65 73 | 25 20 8b 20 6e 70 24 3d |pictures|% . np$=|
|00005e00| 22 3f 22 0d 12 66 a7 f2 | 69 6d 61 67 65 5f 69 6e |"?"..f..|image_in|
|00005e10| 66 6f 28 73 69 67 6e 61 | 74 75 72 65 24 2c 69 5f |fo(signa|ture$,i_|
|00005e20| 77 69 64 74 68 25 2c 69 | 5f 68 65 69 67 68 74 25 |width%,i|_height%|
|00005e30| 2c 63 6f 6c 6f 75 72 73 | 25 2c 6d 6f 64 65 25 2c |,colours|%,mode%,|
|00005e40| 22 4c 5a 57 22 2c 22 4e | 75 6d 62 65 72 20 6f 66 |"LZW","N|umber of|
|00005e50| 20 70 69 63 74 75 72 65 | 73 7c 22 2b 6e 70 24 2b | picture|s|"+np$+|
|00005e60| 22 20 28 64 69 73 70 6c | 61 79 69 6e 67 20 22 2b |" (displ|aying "+|
|00005e70| a4 74 69 6d 65 73 28 70 | 69 63 74 75 72 65 25 29 |.times(p|icture%)|
|00005e80| 2b 22 29 22 2c 6c 65 6e | 25 2c 28 69 5f 68 65 69 |+")",len|%,(i_hei|
|00005e90| 67 68 74 25 2a 69 5f 77 | 69 64 74 68 25 2a 70 69 |ght%*i_w|idth%*pi|
|00005ea0| 78 62 69 74 73 25 29 81 | 38 29 0d 12 70 23 f4 20 |xbits%).|8)..p#. |
|00005eb0| 53 65 74 20 75 70 20 64 | 61 74 61 20 66 6f 72 20 |Set up d|ata for |
|00005ec0| 64 65 63 6f 6d 70 72 65 | 73 73 69 6f 6e 0d 12 7a |decompre|ssion..z|
|00005ed0| 67 f2 76 61 72 28 22 66 | 70 74 72 22 2c a4 69 70 |g.var("f|ptr",.ip|
|00005ee0| 74 72 29 3a f2 76 61 72 | 28 22 70 69 78 62 22 2c |tr):.var|("pixb",|
|00005ef0| 70 69 78 62 69 74 73 25 | 29 3a f2 76 61 72 28 22 |pixbits%|):.var("|
|00005f00| 77 69 64 74 22 2c 69 5f | 77 69 64 74 68 25 29 3a |widt",i_|width%):|
|00005f10| f2 76 61 72 28 22 68 65 | 69 67 22 2c 69 5f 68 65 |.var("he|ig",i_he|
|00005f20| 69 67 68 74 25 29 3a f4 | 20 4d 6f 64 75 6c 65 20 |ight%):.| Module |
|00005f30| 69 6e 66 6f 0d 12 84 39 | e7 69 62 69 74 20 8c 20 |info...9|.ibit . |
|00005f40| f2 76 61 72 28 22 6c 61 | 63 65 22 2c 31 29 20 8b |.var("la|ce",1) .|
|00005f50| 20 f2 76 61 72 28 22 6c | 61 63 65 22 2c 30 29 3a | .var("l|ace",0):|
|00005f60| f4 20 4d 6f 64 75 6c 65 | 20 69 6e 66 6f 0d 12 8e |. Module| info...|
|00005f70| 38 f4 20 44 65 74 65 72 | 6d 69 6e 65 20 62 65 73 |8. Deter|mine bes|
|00005f80| 74 20 6d 65 6d 6f 72 79 | 20 61 6c 6c 6f 63 61 74 |t memory| allocat|
|00005f90| 69 6f 6e 20 66 6f 72 20 | 64 65 63 6f 6d 70 72 65 |ion for |decompre|
|00005fa0| 73 73 69 6f 6e 0d 12 98 | 42 74 61 62 6c 65 6e 65 |ssion...|Btablene|
|00005fb0| 65 64 25 3d 33 32 2a 31 | 30 32 34 3a f4 20 53 70 |ed%=32*1|024:. Sp|
|00005fc0| 61 63 65 20 6e 65 65 64 | 65 64 20 66 6f 72 20 64 |ace need|ed for d|
|00005fd0| 65 63 6f 6d 70 72 65 73 | 73 69 6f 6e 20 63 6f 64 |ecompres|sion cod|
|00005fe0| 65 20 74 61 62 6c 65 0d | 12 a2 38 62 75 66 66 72 |e table.|..8buffr|
|00005ff0| 65 65 25 3d 48 69 6d 65 | 6d 25 2d 4c 6f 6d 65 6d |ee%=Hime|m%-Lomem|
|00006000| 25 3a f4 20 46 72 65 65 | 20 73 70 61 63 65 20 69 |%:. Free| space i|
|00006010| 6e 20 73 70 72 69 74 65 | 20 62 75 66 66 65 72 0d |n sprite| buffer.|
|00006020| 12 ac 1a e7 62 75 66 66 | 72 65 65 25 3e 3d 54 69 |....buff|ree%>=Ti|
|00006030| 6e 79 73 69 7a 65 25 20 | 8c 0d 12 b6 3c 20 f2 76 |nysize% |....< .v|
|00006040| 61 72 28 22 63 68 75 6e | 22 2c 4c 6f 6d 65 6d 25 |ar("chun|",Lomem%|
|00006050| 29 3a f2 76 61 72 28 22 | 63 68 73 69 22 2c 62 75 |):.var("|chsi",bu|
|00006060| 66 66 72 65 65 25 29 3a | f4 20 4d 6f 64 75 6c 65 |ffree%):|. Module|
|00006070| 20 69 6e 66 6f 0d 12 c0 | 25 20 f2 76 61 72 28 22 | info...|% .var("|
|00006080| 74 61 62 62 22 2c 54 69 | 6e 79 25 29 3a f4 20 4d |tabb",Ti|ny%):. M|
|00006090| 6f 64 75 6c 65 20 69 6e | 66 6f 0d 12 ca 1d cc 20 |odule in|fo..... |
|000060a0| e7 62 75 66 66 72 65 65 | 25 3e 3d 74 61 62 6c 65 |.buffree|%>=table|
|000060b0| 6e 65 65 64 25 20 8c 0d | 12 d4 41 20 20 20 20 20 |need% ..|..A |
|000060c0| 20 f2 76 61 72 28 22 63 | 68 75 6e 22 2c 54 69 6e | .var("c|hun",Tin|
|000060d0| 79 25 29 3a f2 76 61 72 | 28 22 63 68 73 69 22 2c |y%):.var|("chsi",|
|000060e0| 54 69 6e 79 73 69 7a 65 | 25 29 3a f4 20 4d 6f 64 |Tinysize|%):. Mod|
|000060f0| 75 6c 65 20 69 6e 66 6f | 0d 12 de 2b 20 20 20 20 |ule info|...+ |
|00006100| 20 20 f2 76 61 72 28 22 | 74 61 62 62 22 2c 4c 6f | .var("|tabb",Lo|
|00006110| 6d 65 6d 25 29 3a f4 20 | 4d 6f 64 75 6c 65 20 69 |mem%):. |Module i|
|00006120| 6e 66 6f 0d 12 e8 2b 20 | 20 20 20 20 cc 20 f2 76 |nfo...+ | . .v|
|00006130| 61 72 28 22 74 61 62 62 | 22 2c 54 69 6e 79 25 29 |ar("tabb|",Tiny%)|
|00006140| 3a f4 20 4d 6f 64 75 6c | 65 20 69 6e 66 6f 0d 12 |:. Modul|e info..|
|00006150| f2 a6 20 20 20 20 20 20 | e7 62 75 66 66 72 65 65 |.. |.buffree|
|00006160| 25 3c 28 54 69 6e 79 73 | 69 7a 65 25 2d 74 61 62 |%<(Tinys|ize%-tab|
|00006170| 6c 65 6e 65 65 64 25 29 | 20 8c 20 f2 76 61 72 28 |leneed%)| . .var(|
|00006180| 22 63 68 75 6e 22 2c 54 | 69 6e 79 25 2b 74 61 62 |"chun",T|iny%+tab|
|00006190| 6c 65 6e 65 65 64 25 29 | 3a f2 76 61 72 28 22 63 |leneed%)|:.var("c|
|000061a0| 68 73 69 22 2c 54 69 6e | 79 73 69 7a 65 25 2d 74 |hsi",Tin|ysize%-t|
|000061b0| 61 62 6c 65 6e 65 65 64 | 25 29 20 8b 20 f2 76 61 |ableneed|%) . .va|
|000061c0| 72 28 22 63 68 75 6e 22 | 2c 4c 6f 6d 65 6d 25 29 |r("chun"|,Lomem%)|
|000061d0| 3a f2 76 61 72 28 22 63 | 68 73 69 22 2c 62 75 66 |:.var("c|hsi",buf|
|000061e0| 66 72 65 65 25 29 3a f4 | 20 4d 6f 64 75 6c 65 20 |free%):.| Module |
|000061f0| 69 6e 66 6f 0d 12 fc 0a | 20 20 20 20 20 cd 0d 13 |info....| ...|
|00006200| 06 05 cd 0d 13 10 21 f2 | 75 6e 70 61 63 6b 28 22 |......!.|unpack("|
|00006210| 47 49 46 22 2c 6d 6f 64 | 65 25 29 3a f4 20 55 6e |GIF",mod|e%):. Un|
|00006220| 70 61 63 6b 0d 13 1a 15 | 49 6d 67 4d 6f 64 65 25 |pack....|ImgMode%|
|00006230| 3d 6d 6f 64 65 25 3a 3d | b9 0d 13 24 05 20 0d 13 |=mode%:=|...$. ..|
|00006240| 2e 18 dd f2 73 6b 69 70 | 5f 47 49 46 5f 65 78 74 |....skip|_GIF_ext|
|00006250| 65 6e 73 69 6f 6e 0d 13 | 38 3f f4 20 53 6b 69 70 |ension..|8?. Skip|
|00006260| 73 20 61 20 47 49 46 20 | 45 78 74 65 6e 73 69 6f |s a GIF |Extensio|
|00006270| 6e 20 42 6c 6f 63 6b 20 | 69 66 20 70 72 65 73 65 |n Block |if prese|
|00006280| 6e 74 20 61 74 20 63 75 | 72 72 65 6e 74 20 70 6f |nt at cu|rrent po|
|00006290| 69 6e 74 65 72 0d 13 42 | 08 ea 20 5f 25 0d 13 4c |inter..B|.. _%..L|
|000062a0| 11 e7 28 a4 69 31 29 3d | 97 22 21 22 20 8c 0d 13 |..(.i1)=|."!" ...|
|000062b0| 56 23 20 f2 69 73 6b 69 | 70 28 31 29 3a f4 20 53 |V# .iski|p(1):. S|
|000062c0| 6b 69 70 20 66 75 6e 63 | 74 69 6f 6e 20 63 6f 64 |kip func|tion cod|
|000062d0| 65 0d 13 60 37 20 f5 20 | 5f 25 3d a4 69 31 3a f2 |e..`7 . |_%=.i1:.|
|000062e0| 69 73 6b 69 70 28 5f 25 | 29 3a fd 20 5f 25 3d 30 |iskip(_%|):. _%=0|
|000062f0| 3a f4 20 53 6b 69 70 20 | 64 61 74 61 20 62 79 74 |:. Skip |data byt|
|00006300| 65 20 62 6c 6f 63 6b 73 | 0d 13 6a 10 cc 20 f2 69 |e blocks|..j.. .i|
|00006310| 73 6b 69 70 28 2d 31 29 | 0d 13 74 05 cd 0d 13 7e |skip(-1)|..t....~|
|00006320| 05 e1 0d 13 88 05 20 0d | 13 92 0d dd a4 70 69 63 |...... .|.....pic|
|00006330| 5f 41 52 43 0d 13 9c 23 | f4 20 4c 6f 61 64 73 20 |_ARC...#|. Loads |
|00006340| 41 72 63 68 69 6d 65 64 | 65 73 20 73 70 72 69 74 |Archimed|es sprit|
|00006350| 65 20 69 6d 61 67 65 0d | 13 a6 2b 69 54 79 70 65 |e image.|..+iType|
|00006360| 25 3d 30 3a f4 20 53 65 | 74 20 6c 6f 77 2d 74 6f |%=0:. Se|t low-to|
|00006370| 2d 68 69 67 68 20 74 79 | 70 65 20 6f 66 20 64 61 |-high ty|pe of da|
|00006380| 74 61 0d 13 b0 42 70 69 | 63 74 75 72 65 73 25 3d |ta...Bpi|ctures%=|
|00006390| a4 69 34 3a 6f 66 69 72 | 73 74 25 3d a4 69 34 3a |.i4:ofir|st%=.i4:|
|000063a0| f4 20 4e 75 6d 62 65 72 | 20 6f 66 20 73 70 72 69 |. Number| of spri|
|000063b0| 74 65 73 2c 20 6f 66 66 | 73 65 74 20 74 6f 20 66 |tes, off|set to f|
|000063c0| 69 72 73 74 0d 13 ba b9 | e7 28 49 6d 61 67 65 4e |irst....|.(ImageN|
|000063d0| 72 25 3e 30 29 20 80 20 | 28 49 6d 61 67 65 4e 72 |r%>0) . |(ImageNr|
|000063e0| 25 3c 3d 70 69 63 74 75 | 72 65 73 25 29 20 8c 20 |%<=pictu|res%) . |
|000063f0| 70 69 63 74 75 72 65 25 | 3d 49 6d 61 67 65 4e 72 |picture%|=ImageNr|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
